sub doc_vorhanden {
    my ( $identnr, @docnames ) = @_;

...