foreach my $ptr (@{$daten})             {
             print qq~<tr>
                <td>$ptr->{doctyp}</td>
                <td>$ptr->{docname}</td>
                <td>$ptr->{head}</td>
                <td><a href="/cgi-bin/frontl.cgi?auswahl=1;
                        identnr=$identnr;
                        docname=$ptr->{docname};
                        ersteller=$ptr->{ersteller};
                        head_de=$ptr->{head};
                        deutsch=$ptr->{deutsch};
                        head_en=$ptr->{head};
                        englisch=$ptr->{englisch};
                        head_fr=$ptr->{head};
                        franz=$ptr->{franz};
                        check1=$ptr->{check1};
                        check2=$ptr->{check2};
                        check3=$ptr->{check3};
                        check4=$ptr->{check4};
                        werk=$ptr->{werk};
                        doctyp=$ptr->{doctyp}  ">Auswählen</a></td>
                </tr>~;
        }