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

##</code><code>##

for my $search (0..@array1)