Use the above suggestions if you want a deep copy. If you only want a shallow copy (just the top level elements) then try this (assumes a blessed hash object)

my %cp = %$original_object;
my $cloned_object = bless(\%cp, ref($original_object));
[download]

-jackdied