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