Wie füge ich Zeilen am Anfang und am Ende einer Datei in Perl ein?

Question

Ich möchte oben und unten in der Datei eine Zeile hinzufügen. Ich kann es auf folgende Weise tun.

open (DATA, "</usr/old") || die "cant open old\n"; #file to which line has to be added

my @body=<DATA>;
close(DATA);

open (FILE, ">/usr/new") || die "cant open new\n"; #file after stuff has been added

print FILE "9   431";

print FILE "\n";

my $body=@body;

for (my $i=0; $i<$body;$i++){

    print FILE "$body[$i]";#not using for loop leads to addition of spaces in new file
}

print FILE "(3,((((1,4),(7,6)),(2,8)),5),9)";

Da ich für eine große Anzahl von Dateien laufe, wird dieser Prozess zeitaufwendig sein. Verfügt Perl über eine spezielle Funktionalität, mit der Zeilen am Anfang und Ende einer Datei hinzugefügt werden können?