use strict;
use warnings;

my ( $check1, $check2, $check3, $check4, $ersteller ) = ('1') x 5;
my ($merker_d, $merker_e, $merker_f) = ('1') x 3;
my $head_de = '1';
my $deutsch = '1';
my $head_en = '';
my $english = '';
my $head_fr = '1';
my $franz   = '';

if ( ( $check1 or $check2 or $check3 or $check4 ) and $ersteller ) {
   if ( $head_de and $deutsch ) {
       print "deutsch OK\n";
   }
   elsif ( $head_de or $deutsch ) {
       print "deutsch FEHLER\n";
       $merker_d = 0;
   }
   else {
       print "kein deutsch\n";
   }
   if ( $head_en and $english ) {
       print "english OK\n";
   }
   elsif ( $head_en or $english ) {
       print "english FEHLER\n";
       $merker_e = 0;
   }
   else {
       print "kein english\n";
   }
   if ( $head_fr and $franz ) {
       print "franz OK\n";
   }
   elsif ( $head_fr or $franz ) {
       print "franz FEHLER\n";
       $merker_f = 0;
   }
   else {
       print "kein franz\n";
   }
}

if($merker_d && $merker_e && $merker_f){
  # eintragen
}
else{
  warnung();
}