my %seen; 
@seen{@array_1} = (0) x @array_1; 
exists( $seen{$_} ) and $seen{$_}++ for @array_2;