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