sub falsch {
          ($fehler) = @_;
           }