Help for this page
$a=[]; is_deeply($a, "$a");
my ($x,$y,$ar1); $x=\$y; ... $ar2->[1]=\$ar2->[0]; is_deeply($ar1,$ar2); #this is wrong, wrong, wrong.