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