for my $i ( 0..$#array1 ){