foreach my $line (reverse(@new_content)) {
    unshift(@tiedfile, $line);
}