foreach $core (@somewords) {
  print " ${core};\n
}