for my $search (0..scalar @array1)