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