in reply to Using the same hashes as different object variables

For a deep copy 
use Storable qw(dclone);

my $copy = dclone($original);

[download]
Storable is a base module.

In Section Seekers of Perl Wisdom