use Storable qw(dclone);
my $copy = dclone($some_ref);

##</code><code>##

use Clone qw(clone);
my $copy = clone($some_ref);

##</code><code>##

@copy = thaw freeze $hashref