my $var = 1;
our $alias;
*alias = \$var;
$alias = 2;
print("$var\n");   # 2