note
kennethk
There are a few ways. You can use C-style [doc://perlsyn#For-Loops]:
<p><c>for (my $i = 0; $i < @somewords -1; $i++) {
print " $somewords[$i];\n"
}</c>
You can use [doc://perldata#Slices]:
<p><c>foreach $core (@somewords[0 .. $#somewords-1]) {
print " ${core};\n"
}</c>
Or, in some cases, it makes sense to use [doc://perlsyn#Loop-Control]:
<p><c>my $i = 0;
foreach my $core (@somewords) {
next if ++$i == @somewords;
print " ${core};\n"
}</c>
<p>TIMTOWTDI</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-712372">
<p>#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.</p>
</div></div>
968933
968933