my @array = qw(a b c d e f);
for (0..$#array) {print $_}  # zero thru last index
for (0..@array)  {print $_}  # zero thru size of array