diff --git a/fhem/FHEM/70_XBMC.pm b/fhem/FHEM/70_XBMC.pm
index 1b3fa1c2e..1ef490a6b 100644
--- a/fhem/FHEM/70_XBMC.pm
+++ b/fhem/FHEM/70_XBMC.pm
@@ -658,7 +658,7 @@ sub XBMC_ProcessResponse($$)
     my $players = $obj->{result};
     if (ref($players) ne "ARRAY") {
         my $keys = "";
-        while ((my $k, my $v) = each %$hash->{PendingPlayerCMDs} ) {
+        while ((my $k, my $v) = each %{ $hash->{PendingPlayerCMDs} } ) {
           $keys .= ",$k";
         }
         delete $hash->{PendingPlayerCMDs}{$id};