Chcę dodać linię do góry i dołu pliku. Mogę to zrobić w następujący sposób.

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)";

Ponieważ uruchamiam duży zbiór plików, proces ten będzie czasochłonny. Czy Perl ma jakąś określoną funkcję, która służy do dodawania wierszy u góry i dołu pliku?