Select Code to Download

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

SWITCH: {
    last SWITCH if $id == $CASH and $tcash += $amt;
...
    last SWITCH if $id == $CC_MAN_AUTH and $tcc_man_auth += $amt;
    $tcredit += $amt;
}