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