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);
...
}

sub doc_vorhanden {
............
        print '<table border="1" rules="groups">
                <colgroup>
                   <col width="50">
                   <col width="80">
                   <col width="20">
                   <col width="300">
                   <col width="50">
                </colgroup>
                <thead>
                <tr>
                   <th>doc_typ</th>
                   <th>doc_name</th>
                   <th>Sprache</th>
                   <th>headline</th>
                   <th>&nbsp</th>
                </tr></thead>
                <tbody>';
        foreach my $ptr (@{$daten})             {
             print qq~<tr>
                <td>$ptr->{doctyp}</td>
                <td>$ptr->{docname}</td>
                <td>$ptr->{langtyp}</td>
                <td>$ptr->{head}</td>
                <td><a href="/cgi-bin/frontl.cgi?auswahl=1;
                        identnr=$identnr;
                        docname=$ptr->{docname};
                        ersteller=$ptr->{ersteller};
                        check1=$ptr->{check1};
                        check2=$ptr->{check2};
                        check3=$ptr->{check3};
                        check4=$ptr->{check4};
                        werk=$ptr->{werk};
                      doctyp=$ptr->{doctyp}  ">Auswählen</a></td>
                </tr>~;
        }
        print '</tbody></table>';
        print '<p><p><input type="button" value="Home" onClick=location.href="http://127.0.0.1/">';
        print "</form>
        </body>
        </html>";
        }