>perl -wle"no strict;  my @a = qw( a b c ); print $#{ @a }"
-1

>perl -wle"use strict; my @a = qw( a b c ); print $#{ @a }"
Can't use string ("3") as an ARRAY ref while "strict refs" in use at -e line 1.