foreach my $ptr (@{$daten})     
        {
        print '<tr>';
        print '<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}" >Auswählen</a></td>
                </tr>';
        }