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} if ($ptr->{langtyp} eq 'DE');
                        deutsch=$ptr->{langtxt} if ($ptr->{langtyp} eq 'DE');
                        head_en=$ptr->{head_en} if ($ptr->{langtyp} eq 'EN');
                        englisch=$ptr->{langtxt} if ($ptr->{langtyp} eq 'EN');
                        head_fr=$ptr->{head_fr} if ($ptr->{langtyp} eq 'FR');
                        franz=$ptr->{langtxt} if ($ptr->{langtyp} eq 'FR');
                        check1=$ptr->{check1};
                        check2=$ptr->{check2};
                        check3=$ptr->{check3};
                        check4=$ptr->{check4};
                        werk=$ptr->{werk};
                        doctyp=$ptr->{doctyp}  ">Auswählen</a></td>

sub doc_suchen {
        my $db="DBI:mysql:produkte";
        my $user="lidos";
        my $pass="lidos";
        my $dbh = DBI->connect($db,$user,$pass) or die $DBI::errstr;
        my $statement_suchen="SELECT * FROM tbl0011990 where docname = '$docname'";
        my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr;
        $sth_suchen->execute;
        my %hash;
        while (my @row = $sth_suchen->fetchrow_array()) {
                $hash{head_de}   = $row[4] if ($row[1] eq 'DE');
                $hash{head_en}   = $row[4] if ($row[1] eq 'EN');
                $hash{head_fr}   = $row[4] if ($row[1] eq 'FR');
                $hash{deutsch}   = $row[5] if ($row[1] eq 'DE');
                $hash{englisch}  = $row[5] if ($row[1] eq 'EN');
                $hash{franz}     = $row[5] if ($row[1] eq 'FR');
                }
        &such_eintr(\%hash);
        $sth_suchen->finish();
        $dbh->disconnect();
}

        my (%param) = @_; 
        my $param =  \%param;

        print '<input name="head_en" type="text" size="50" value='.$param->{head_en}.'>';