use strict;
use warnings;

use Lexical::Alias;


my $src = { one => 1, two => 2 };

my %dest;


alias %{$src}, %dest;


print keys %dest, "\n";

$dest{three} = 3;

print $src->{three}, "\n";