ファイルを読み込んで処理を行い，保存したいのですが
以下のような感じでやってもうまくできません．

open FILE, "+>$filename";
@array = <FILE>;
foreach $tmp (@array){
処理
}
print FILE @array;
close FILE;

@arrayをプリントしてみたところ配列にファイルの内容が読み込まれてないようです．