while ( my $data = $t_sth->fetchrow_arrayref )
  {
    my ( $amt, $id ) = @$data;
    $amt /= PRECISION;

    SWITCH:
    {
      $id == $CASH        && ($tcash        += $amt) && last SWITCH;
      $id == $ACCOUNT     && ($taccount     += $amt) && last SWITCH;
      $id == $CHECK       && ($tcheck       += $amt) && last SWITCH;
      $id == $GIFT        && ($tgift        += $amt) && last SWITCH;
      $id == $VOUCHER     && ($tvoucher     += $amt) && last SWITCH;
      $id == $CC_MAN_AUTH && ($tcc_man_auth += $amt) && last SWITCH;
                             ($tcredit      += $amt);
    }
  }

##</code><code>##

  my %totals;
  @totals{$CASH, $ACCOUNT, $CHECK, $GIFT, $VOUCHER, $CC_MAN_AUTH} =
    \($tcash, $taccount, $tcheck, $tgift, $tvoucher, $tcc_man_auth);

  while ( my $data = $t_sth->fetchrow_arrayref )
  {
    my ( $amt, $id ) = @$data;
    $amt /= PRECISION;
    if (my $totalvar = $totals{ $id })
    {
      $$totalvar += $amt;
    }
    else
    {
      $tcredit += $amt;
    }
  }