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.
};