my @array = qw/one two three four five/;
print $#array;
__OUTPUT__
4