@list = (\$a, \@b, \%c);
    @list = \($a, @b, %c);      # same thing!

##</code><code>##

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