use strict;
use warnings;
use Lexical::Alias;

my $orig = 1;
my $alias = 99;
alias $orig => $alias;
print "$orig = $alias\n";

sub foo {
	my $orig = 1;
	my $alias = 99;
	alias $orig => $alias;
	print "foo(): $orig = $alias\n";
}

foo();