grep{$x=$_;grep{$_eq$x}@array1} }@array2;