おかげさまで！
open(IN, "list.txt");
@list = <IN>;
unshift (@list,"追加の行<br>\n");
close(IN);
open(OUT, "> list.txt");
print(OUT "@list");
close(OUT);

できましたぁー！
読み込みと書き出しは同時にできないってことでしょうか？