perlを学習し始めたばかりで、いくら参考書を読んでもこういった場合どうすればいいのか僕の頭じゃわからないのでどうかご教授ください。
num.datの内容が

100
200
300
400
500

の時、以下を実行すると
open(IN, "./num.dat");
@number = <IN>;
close (IN);

$number[0] = $number[0] - 10;

open(OUT, ">./num.dat");
print OUT @number;
close(OUT);
書き出されたnum.datの内容は

90200
300
400
500

のようになってしまいます。これを

90
200
300
400
500

のようにしたいのですがどうすればよろしいのでしょうか？くだらない質問ですが、何卒ご教授の程よろしくお願い致します。