Select Code to Download

for my $key (keys %coll_key_hash) {
  foreach my $rec (@recs_read) {
...
    }
  }
}

for my $key (keys %coll_key_hash){
    for my $rec (@recs_read){
...
        }
    }
}

for my $key (keys %coll_key_hash){
    for(my $recIdx = 0; $recIdx < scalar @recs_read; $recIdx++){
...
        }
    }
}