my %hash;
  &Doc_Rep_info(\%hash);

  #einfacher test  auf inhalt

  foreach my $ele ( keys(%hash)){
    print "dokuart:"."$ele\n"; 
      foreach my $ele2 (keys %{ $hash{$ele} }){ 
        print "$ele2\n";
        print "$hash{$ele}{$ele2}\n"; 
      } 
    } 
  }