perl -e 'print $#a, "\n", @a, "\n", $#a+1, "\n"'
-1

0

##</code><code>##

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