use Lexical::Alias;

my ($x, $y);
alias $x, $y;

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