use feature 'say';
use Data::Dump qw( pp );
use Storable qw/ freeze thaw /;

my $array = [0];
push @$array, \$array->[0];

my $copy = thaw freeze $array;

$array->[0]++;
$copy->[0]++;

say "Array:";
say join ", ", map pp($_), @$array;
say pp $array;

say "\nCopy:";
say join ", ", map pp($_), @$copy;
say pp $copy;


__END__

Array:
1, \1
do {
  my $a = [1, 'fix'];
  $a->[1] = \$a->[0];
  $a;
}

Copy:
1, \1
do {
  my $a = [1, 'fix'];
  $a->[1] = \$a->[0];
  $a;
}