*z=\$x;

##</code><code>##

#inspired by http://www.perlmonks.org/index.pl?node_id=98721
use strict;
#use warnings;
my $x=2;
*z=\$x; 
print $z;