$a= [1..10];$b=\$a;$c=\$b; $d=\$c;$e=\$d; $e=$$e while (ref($e) eq "REF"); print scalar @$e; [download]
In reply to Re^3: size of an array ref by brx in thread size of an array ref by fionbarr