Select Code to Download

        push @fields, {company_ident => $comp_ident,
                       company => $company,
                       batch_number => $batch_num,
...
foreach $comp (keys %sumcredits) {
     print $comp . "\t" . $sumcredits{$comp} . "\n";
};

Disney              22806.00
Tiger Human Fund      32136.97
Little Jerry Inc.          1450.00
Biggens Co.           2329.51
Conservative Fund          12515.38

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