住所録ファイルの更新スクリプトを作ろうと考えています。
更新用の情報「番号,氏名,生年月日」が記入されたcsvファイル1のレコードから「番号」を用い、
同じように「番号,氏名,生年月日」が記入された更新前のcsvファイル2から、「番号」の列全てに検索をかけて、マッチした場合はcsvファイル1の情報をファイル2に上書きさせたいです。

具体的にはこのような感じにしたいです。
csvファイル1（更新用情報）
2,山田太郎,1月1日

csvファイル2（更新前）
1,近藤太郎,3月3日
2,兼松太郎,1月1日
3,近藤直正,3月12日

csvファイル2（更新後）
1,近藤太郎,3月3日
2,山田太郎,1月1日
3,近藤直正,3月12日

自分なりに下記のように作成してみたのですが、上手くできずに詰まってしまっています。どなたか解決法をご教授ください…

open(IN, '<After') or die "file open error: $!";
open(OUT, '<Before') or die "file open error: $!";
while( <IN> ){
@a = split(/,/, $_);
@b = split(/,/, <OUT>);
for($i =0; $i<13; $i++){
if ( $a[0] ne $b[$i] ){
print OUT "$a[$i]\t"
}
}
print "\n";
}