my @array = qw/zero one two three/;
print $#array;