sub traditional {
    my $C = $A;
    $A = $B;
    $B = $C;
}

sub non_trad {
    ($B, $A) = ($A, $B);
}

Global symbol "$A" requires explicit package name at ./bench.perl line 12.
Global symbol "$B" requires explicit package name at ./bench.perl line 13.