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