use Data::Dump;
my $aref = ['x','y'];
my @a = ($aref, $aref);
dd \@a;
__END__
do {
  my $a = [["x", "y"], 'fix'];
  $a->[1] = $a->[0];
  $a;
}