grep {$x=$_;grep{$_ eq $x} @ar1} @ar2;