...
such_eintr(%hash);    # hier wird der Hash uebergeben
.
.
.
sub such_eintr {
        my ($param)=@_;  # hier wird nur der erste Key ausgelesen!
...
        if ($suchen){              #### Zeile 225 (wahrscheinlich eher 224)
                print ...$param->{doctyp}...;   # Fehler!
...