There's not a native Perl way to do that, but there is japhy's Lexical::Alias. Watch this!

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";
[download]