use Storable qw/ dclone /;
my $cloneref = dclone($ref);