my %hash_docs; # jetzt ist %hash_docs leer!
      while(my ($doc) = $sth_docnames->fetchrow_array()){
         $hash_docs{$doc}++; # jetzt wird die Value zum Key "$doc" (was ist das!? um eins hochgezählt.
      }
      if(scalar(keys(%hash_docs)) > 1){ # Wenn mehr als ein Key in %hash_docs ist
         doc_vorhanden(%hash_docs); Wird der Hash %hash_docs an doc_vorhanden() übergeben, aber doc_vorhanden interessiert sich nicht für die Übergabeparameter. Wenn bis hierhin nicht schon grosses Chaos ausgebrochen ist, jetzt geht schon gar nix mehr.
      }