Select Code to Download

use Lexical::Alias ('alias');
my $ref = { a => 'b', c => 'd' };
my %hash; alias %{$ref}, %hash;
print $ref->{'a'}; $hash{'a'} = 'e'; print $ref->{'a'};

$ perl alias.pl
b
e