my %hash;
$hash{foo}{bar}="baz";
my %new=%hash;
print $new{foo}{bar},"\n"; #prints baz

my $hashref;
$hashref->{foo}{bar}='ref';
my %new2=%$hashref;
print $new2{foo}{bar},"\n"; #prints baz

##</code><code>##

$new{foo}{baz}='new';
print $hash{foo}{baz},"\n"; #prints new