open(DATEI, "<C:/Beispieldaten/Konfigurationsdaten/20060310.DOCFIELD") || die "Datei nicht gefunden";
  my @Zeilen = <DATEI>;
  close(DATEI);
  
  foreach (@Zeilen){
    if ($typ == 1 && /$dokuart\;$zahl1\;(\d+)/){
      $zahl1 =  $1;    
      open(DATEI, "<C:/Beispieldaten/Konfigurationsdaten/20060310.REPOSITORY") || die "Datei nicht gefunden";
      my @Zeilen = <DATEI>;
      close(DATEI);
      foreach(@Zeilen){
      my %hash;
        if(/^$zahl1;([^;]+)/){