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

##</code><code>##

for (...) {
   push @foo, ...;
}