perl -e 'print $#a, "\n", scalar (@a), "\n", $#a+1, "\n"'
-1
0
0