$a=\$x;
$b=\$y;
print "$a $b\n"
($a,$b)=($b,$a);
print "$a $b\n";