Select Code to Download

@array = qw/ a b c /;

...

($a, $b, $c) = @array;  # likewise
print "$a, $b, $c";     # 'a, b, c'

($a, $b) = ($b, $a);    # swap
print "$a, $b, $c";     # 'b, a, c'