sub suchen {
        my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;

        my $statement_suchen="SELECT * FROM $TABELLE where ident_nr = '$identnr' order by docname";
.......
&doc_vorhanden(\@daten);
...
}