Per if-Anweisung in x-datei oder y-datei schreiben?

[Pit]

Hallo an alle,

ich habe eine Frage, vielleicht weiß von Euch einer die Antwort für mich, dazu erst mal ein Teil meines Quelltextes:

open(DB, "<$db_file_name") die "Can't open: $db_file_name. Reason: $!";
             if ($db_use_flock) {
   flock (DB, 1);
   }
             @lines = <DB>;
        close DB;

open (DB, ">$db\_file\_name") or ("Can't open: $db\_file\_name. Reason: $!");  

if ($db_use_flock) {
   flock (DB, 2);
    }
             foreach (@lines) {
                  next if /^#/;
                  next if /^\s*$/;
                  chomp;
                  @values = &split_decode ($_);
              
        if (BLA,BLA,BLA) {
                  print "...wird in Datei-y geschrieben\n";

next;
            }
print DB $_, "\n";
        }
      close DB;

Nun meine Frage:

Die if-Anweisung ist im übrigen kein  Problem

Alle "Einträge", die nicht unter die if-Bedingung fallen, fallen bis dato einfach nur heraus, sprich die datei-x wird ohne sie neu geschrieben.

Wie bekomme ich aber das Schreiben der unter die if-Bedingung fallenden "Einträge" in eine auf dem Server vorhandene y-datei hin??

Danke für Hilfe.

Pit