use Storable;
$serialized = freeze \%table;
%table_clone = %{ thaw($serialized) };