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

$$y++;

print $x;