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

##</code><code>##

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