Select Code to Download

my ($b, $a) = ($a, $b)

$a = 100;
$b = 200;
...
print $b, "\n"; #100
print $main::a, "\n";#100
print $main::b, "\n";#200

($b, $a) = ($a, $b)