foreach my $comps (keys %comps) {
    print $comps;
    foreach $comp (keys %sumcredits) {
         #print $comp . "\t" . $sumcredits{$comp} . "\n";
    };
};