Select Code to Download

$x=\1;
$y=$$x;        # equivalent to $y = 1, i.e. a copy
$y++;
print $y;      #> 2

sub swap {
  my ($a, $b) = \(@_);
...
 
  return;
}