foreach $company (sort(keys %details_for)){
   my @trans_details = @{$details_for{$company}};
   my $comp = $trans_details[0]->{'company'};
   my $sumcredits += $_->{'credits'} for (@trans_details);

    #Show the total credits
    print $comp, "\t", $sumcredits, "\n";
};