$ perl -e'@a=qw(a b c); print "$#a\n"; $[=3; print "$#a\n"'
2
5