my $last = pop @somewords;
foreach my $core (@somewords) {
  print " $core;\n"
}
push @somewords,$last;