my %hash;
$hash{$_}=1 foreach @array_1;
@array_2=grep($hash{$_},@array_2);

##</code><code>##

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