Select Code to Download

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

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