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%'";
        my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr;
......