open my $ff, ">>newfile" or die "open failed: $!\n";

##</code><code>##

open my $ff, ">newfile" or die "open failed: $!\n";

##</code><code>##

foreach my $line (@oldlines) {
    unless ($line eq $valueToDelete) {
        print $ff "$line\n";
    }
}