http://www.perlmonks.org?node_id=956002


in reply to Re^2: size of an array ref
in thread size of an array ref

$a= [1..10];$b=\$a;$c=\$b; $d=\$c;$e=\$d; 

$e=$$e while (ref($e) eq "REF");
print scalar @$e;

[download]

In Section Seekers of Perl Wisdom