diff --git a/contrib/CULsim.pl b/contrib/CULsim.pl
index 2abff95dc..1053dab92 100644
--- a/contrib/CULsim.pl
+++ b/contrib/CULsim.pl
@@ -100,7 +100,7 @@ for(;;) {
         push @msg, $stars.$cmd;
 
       } elsif($cmd eq "?") {
-        push @msg, $stars."? (? is unknown) Use one of t u x";
+        push @msg, $stars."? (? is unknown) Use one of A B b C E e F f G h i K l M m N R T t U u V W X x Y Z";
 
       } elsif($cmd eq "t") {
         push @msg, $stars.sprintf("%08X", (time()%86400)*125);
diff --git a/fhem.pl b/fhem.pl
index 687c8ff81..8e1d43fd1 100755
--- a/fhem.pl
+++ b/fhem.pl
@@ -3880,7 +3880,7 @@ Dispatch($$;$$)
     my @tfound = &{$modules{$m}{ParseFn}}($hash,$dmsg);
     use strict "refs"; $readingsUpdateDelayTrigger = 0;
     $parserMod = $m;
-    if(@tfound && $tfound[0]) {
+    if(int(@tfound) && defined($tfound[0])) {
       if($tfound[0] && $tfound[0] eq "[NEXT]") { # not a goodDeviceName, #95446
         shift(@tfound);
         push @found, @tfound;                   # continue feeding other modules