>>99
解決されたようですが、細かいことだけ書いときます。Perlには、変な本も多いので。

> 　　open( IN_FILE, "$in_file" );
この例の場合、$in_file をダブルクォートで囲う事には、まったく意味がありません。
囲わなくてOKです(「変数展開」で調べてください)。

できれば、ファイルが開けなかった際のエラー処理を入れましょう。
open(IN_FILE, $in_file) or die "Can't open $file. : $!\n";
open(IN_FILE, $in_file) or die qq(Can't open "$file". : $!\n);
とか、お好きなように。

> 　　exit;
明示的に終了するケースでなければ、exit() は書かない人が多いかも。