my $x;
my $y;
make_alias( $x, $y );
$x = 5;
print $y; # prints 5