push @fields, {company_ident => $comp_ident,
                       company => $company,
                       batch_number => $batch_num,
                       effective_date => $effent_date,
                       entry_description => $entry_desc,
                       date_created => $date_crt,
                       prod_number => $prod_num,
                       debits => $debits,
                       credits => $credits};
        $sumcredits{$company}+= $credits;
        #$sumitems{$company}+= $total;
        };
};

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

##</code><code>##

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

##</code><code>##

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