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

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