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