open(DATEI, "<./Konfigurationsdaten/20060310.DOCFIELD") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);
my %hash2;
my $old_doc = "x";

  foreach (@Zeilen){
      if (/(\w+)\;(\d+)\;(\d+)/){
        $dokuart =  $1;
        $zahl1 =  $2;
        $zahl2 =  $3;
        if($dokuart!=$old_doc){
        $hash2{$old_doc}=$hash; <-------- initialisierende zeile
        my %hash;
        }
        open(DATEI, "<./Konfigurationsdaten/20060310.REPOSITORY") || die "Datei nicht gefunden";
        my @Zeilen2 = <DATEI>;
        close(DATEI);
        foreach(@Zeilen2){
          if(/^$zahl2;([^;]+)/){
            $hash{$zahl}=$1;                                
          }
        } 
        
      }
      $old_doc = $dokuart;
  }
  
  foreach my $ele (%hash2){
    foreach my $ele2 (keys %{$ele}){
    print "$ele2\n";
    }
  }