Select Code to Download

my %details_for = ();
for (... [your loop beginning here] ...){
...
      print "\n";
   }
}

foreach $comp (keys %sumcredits) {
   print $comp . "\t" . $sumcredits{$comp} . "\n";
...
   my @trans_details = grep {$_->{'company'} eq $comp} @fields;
   # Now loop over @trans_details and print.
};