Select Code to Download

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

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