my $option = "";

$option .= "head_de=$ptr->{head};" if ($ptr->{langtyp} eq 'DE');
$option .= "deutsch=$ptr->{langtxt};" if ($ptr->{langtyp} eq 'DE');
$option .= "head_en=$ptr->{head_en};" if ($ptr->{langtyp} eq 'EN');
$option .= "englisch=$ptr->{langtxt};" if ($ptr->{langtyp} eq 'EN');
$option .= "head_fr=$ptr->{head_fr};" if ($ptr->{langtyp} eq 'FR');
$option .= "franz=$ptr->{langtxt};" if ($ptr->{langtyp} eq 'FR');

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};
                       $option                       
                       check1=$ptr->{check1};
                       check2=$ptr->{check2};
                       check3=$ptr->{check3};
                       check4=$ptr->{check4};
                       werk=$ptr->{werk};
                       doctyp=$ptr->{doctyp}  ">Auswählen</a></td>
#...