$ perl -le '$x = 1; $r = \$x; local $x=2; print "$$r $x"'
1 2
$