Select Code to Download

use Data::Dumper;
my $aref = ['x','y'];
...
          ],
          $VAR1->[0]
        ];

use Data::Dumper;
my $aref = ['x','y'];
...
          []
        ];
$VAR1->[1] = $VAR1->[0];

use Data::Dumper;
use Storable qw/dclone/;
...
__END__

$VAR1 = [[[1,2],[2,3]],[[2,3],[3,4]],[[3,4],[4,6]]];

use Data::Dump;
my $aref = ['x','y'];
...
  $a->[1] = $a->[0];
  $a;
}

use Data::Dumper;
$Data::Dumper::Deepcopy = 1;
...
print Dumper(\@a), "\n";
__END__
$VAR1 = [['x','y'],['x','y']];