Another note,

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

is a weird/convoluted way of doing

for (...) {
   push @foo, ...;
}
[download]

You have two instances of unnecessarily using a counter.