【Perl 】初心者コーナーPart5

すみません助けてください。
perlでＡとＢのファイルのレコードマッチングで
同じレコードを抜き出してＣというファイルを作るのですが
foreachの入れ子で作るとどうしても抜き出すレコードが
２レコードずつ出力されてしまいます。

どこかによい例がありませんでしょうか？