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