Select Code to Download

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

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

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