There are a few ways. You can use C-style For Loops:

for (my $i = 0; $i < @somewords -1; $i++) {
  print " $somewords[$i];\n"
}
[download]

You can use Slices:

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

Or, in some cases, it makes sense to use Loop Control:

my $i = 0;
foreach my $core (@somewords) {
  next if ++$i == @somewords;
  print " ${core};\n"
}
[download]

TIMTOWTDI