my $x = 1;
my $y = \$x;
$$y = 2;
print $x;