if ($- <= 5) {
    write(STDOUT_FOOT);
    $-=0;
  }

  # Einträge der aktuellen Datenzeile aufsplitten
  ($suchbegr, $stammnr, $kn, $lzbkn, $kne, $lzbkne, $gs, $pruefk, $ort, $name2, $name3, $personen_id)=split(/;/,$zeile, 12);

  write;