in reply to Reassembling lines and comparing them (was: First Post)
grep{$x=$_;grep{$_eq$x}@array1} }@array2; [download]