Select Code to Download

use Storable 'dclone';
use Scalar::Util qw(weaken isweak);
...
$z = dclone $y;
print "y: ", isweak $y->[0];
print "z: ", isweak $z->[0];