my $fehler;
my $checker=0;
sub falsch {
        $fehler = @_;