use Storable qw(nfreeze thaw);
$scalar = nfreeze(\%hash);
%hash_copy = %{ thaw($scalar) };