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