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