use Storable qw(dclone);
# Deep (recursive) cloning
$cloneref = dclone($ref);