perlでファイルを読み込んだ順で重複行チェック

質問

perl初心者です。
ファイルを読み込んで重複行について以下の処理をおこないたいです。
ハッシュを使えば比較的苦労しないでできそうなのですが、
ファイルを読み込んだ順に出力をしたいので悩んでいます。
アドバイスをお願いします。
やりたいこと。
・タブ区切りのファイルを読み込む
・ファイルの出力順は入力ファイルの上から順とし、並び替えを変えたくない。
・重複行だけのファイルと重複していないファイルを作りたい。←パターン１,パターン2

例）
以下の入力ファイル(タブ区切り）についてidをキーに重複行チェック
入力ファイル
id name　age
1 質問一郎 20
2 質問和美 30
3 質問次郎 40
1 回答花子 50
3 回答太郎 22

・パタン１の出力
重複ファイル
1 質問一郎 20
1 回答花子 50
3 質問次郎 40
3 回答太郎 22

ユニークファイル
2 質問和美 30
---------------------
・パタン2の出力
※
重複ファイル
1 質問一郎 20
1 回答花子 50
3 質問次郎 40
3 回答太郎 22

ユニークファイル
1 質問一郎 20
2 質問和美 30
3 質問次郎 40

パターン2の場合、ユニークファイルには最初に読み込んだ重複ファイル１行分も出力させる。

回答No.1

notnot

案１．ファイルを2回読む
案２．ファイル内容を全部配列に格納する

お礼

ありがとうございます。
サクッとはいかないようですね。
苦戦しながら頑張ってみます。