%$hash = %{ thaw($hash2) };

##</code><code>##

#!/usr/bin/perl -l

my $href1 = { foo => "OK" };
my $href2 = $href1;         # $href1 and $href2 point to the same hash

print $href2->{foo};

$href2->{foo} = "NOT OK";   # modify entry

print $href2->{foo};

$href2 = { foo => "OK2" };  # $href2 now points to another new hash

print $href2->{foo};    
print $href1->{foo};        # $href1 still points to the old hash

__END__
OK
NOT OK
OK2
NOT OK