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

##</code><code>##

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

##</code><code>##

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