$ perl -MData::Dump=pp -le '$ref = []; print pp eval pp [$ref, $ref];'
do {
  my $a = [[], 'fix'];
  $a->[1] = $a->[0];
  $a;
}