RosettaCodeData/Task/Generic-swap/Perl/generic-swap-1.pl

($y, $x) = ($x, $y);