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