use strict;
use warnings;

my ( $check1, $check2, $check3, $check4, $ersteller ) = ('1') x 5;
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";
    }
    else {
        print "kein deutsch\n";
    }
    if ( $head_en and $english ) {
        print "english OK\n";
    }
    elsif ( $head_en or $english ) {
        print "english FEHLER\n";
    }
    else {
        print "kein english\n";
    }
    if ( $head_fr and $franz ) {
        print "franz OK\n";
    }
    elsif ( $head_fr or $franz ) {
        print "franz FEHLER\n";
    }
    else {
        print "kein franz\n";
    }
}