I'd be inclined to just iterate over the index:

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

The slice technique is also nice though:

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