for (my $i = 0; $i < @array1; $i++) {