Help for this page
use Tie::File; ... untie(@tiedfile);
foreach my $line (reverse(@new_content)) { unshift(@tiedfile, $line); }