if ($head_de and $deutsch and ($check1 || $check2 || $check3 ||$check4) and $ersteller and $werk)
        {
         $sth_insert->execute(.....) or die $DBI::errstr;
                        $merker = 1;
       }
........