use Storable qw(freeze thaw);

# Serializing to memory
$serialized = freeze \%table;
%table_clone = %{ thaw($serialized) };