Eu quero adicionar uma linha ao topo e ao fundo do arquivo. Eu posso fazer isso seguindo o caminho.

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

Desde que eu corro para um grande conjunto de arquivos, esse processo será demorado. O Perl tem alguma funcionalidade específica que costumava adicionar linhas na parte superior e inferior de um arquivo?