for my $i (0 .. $#array) { ... }

##</code><code>##

for ($i=0; $i < @array; $i += ROWSIZE) { ... }