Select Code to Download

...
my $sumcredits;
...
...
}
print "The sum of credits is $sumcredits\n";

...
my %sumcredits;
...
foreach my $comp (keys %sumcredits) {
  print "The sum of credits for $comp is $sumcredits{$comp}\n";
}