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