my $x = 0;
*y = \$x;

$y = 5;
print "$x\n";