Select Code to Download

for (my $nr = 0; $nr < $filearrnr; $nr++) {
    splice (@filearr, $nr, 1) if ($filearr[$nr] =~ /^#/)
}

next if ($filearr[$nr] =~ /^#/);

    
foreach my $nrl (@hostarr){}

 
for (my $nr1 = 0; $nr1 < $hostarrnr; $nr1++)