foreach my $row (@rows) {
   ...
}

##</code><code>##

for my $i (0 .. $#rows) {
   ...
   # something with $rows[$i]
}