my $rws = 0;
for (...) {
   $foo[$rws] = ...;
   $rws++;
}