#for (my $search =0; $search<scalar @array1; $search++) # blech, this isnt C you know
for my $search (0.. $#array1)                           # ahhh thats much better