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