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