Select Code to Download

  while ( my $data = $t_sth->fetchrow_arrayref )
  {
...
                             ($tcredit      += $amt);
    }
  }

  my %totals;
  @totals{$CASH, $ACCOUNT, $CHECK, $GIFT, $VOUCHER, $CC_MAN_AUTH} =
...
      $tcredit += $amt;
    }
  }