my $sumcredits = 0;
   $sumcredits += $_->{'credits'} for (@trans_details);