sub suchen_wild {       my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;       my $statement_suchen="SELECT * FROM $TABELLE where ident_nr like '$identnr%' order by docname";