Event 6 茶歇

#!/usr/bin/perl -w
use strict;
open COFFEE,"#Office 100
#Espresso: 15
#Latte: 10
#Cappuccino: 14
my $Espresso;
my $Latte;
my $Cappuccino;
foreach()
{
  # print "********$_\n";
   my @lists=split(/ /, $_);
 #  print "the secoen: $lists[1]\n";
  
  my $first=$lists[0];
 
  my  $second=$lists[1];
  chomp($first);
  chomp($second);
   if($first eq 'Espresso')
   {
    # print "Espresso\n";
     $Espresso+=$second;
  }
  elsif($first eq 'Latte')
   {
    # print "Latte\n";
     $Latte+=$second;
  }
  elsif($first eq 'Cappuccino')
   {
     #print "Cappuccino\n";
     $Cappuccino+=$second;
  }
}
  print "****************************\n";
  print "Espresso: $Espresso\n";
  print "Latte: $Latte\n";
  print "Cappuccino: $Cappuccino\n";