in reply to How to copy a referenced data structure?

Check out the Storable module, on CPAN: 

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

[download]

In Section Seekers of Perl Wisdom