my @produkte;
while (my @row = $sth_suchen->fetchrow_array()) {
    my %hash;
    $hash{identnr}  = $row[0];
    $hash{doctyp}   = $row[2];
    $hash{docname}  = $row[3];
    $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');
    $hash{ersteller}= $row[7];
    $hash{werk}     = $row[8];
    $hash{check1}   = $row[9];
    $hash{check2}   = $row[10];
    $hash{check3}   = $row[11];
    $hash{check4}   = $row[12];
    push @produkte, \%hash;
}