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++)
## next if ($filearr[$nr] =~ /^#/); ##
## foreach my $nrl (@hostarr){} ##
## for (my $nr1 = 0; $nr1 < $hostarrnr; $nr1++)