@hash1{@array1} = (1)x@array1

##</code><code>##

push( @intersection, grep { $hash1{$_} } @array2 );