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

##</code><code>##

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

##</code><code>##

    
foreach my $nrl (@hostarr){}

##</code><code>##

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