foreach my $idx ( 0 .. $#somewords - 1 ) { print " $somewords[$idx]\n"; }