in reply to foreach only for a section of a list

array slice , range oprator 
for my $ix ( 0 .. ( $#somewords -1  ) ) {
    print "$somewords[$ix]\n"
}

for my $chops ( @somewords[ 0 .. ( $#somewords -1  ) ) {
    print "$chops\n"
}

[download]

In Section Seekers of Perl Wisdom