Help for this page
@hash1{@array1} = (1)x@array1
push( @intersection, grep { $hash1{$_} } @array2 );