diff --git a/ChangeLog b/ChangeLog
index f724819fc..336734a4b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,7 @@ Revision history for Rex
  [API CHANGES]
 
  [BUG FIXES]
+ - Fix precedence warning after perl-5.41.4
 
  [DOCUMENTATION]
 
diff --git a/lib/Rex/Shared/Var/Array.pm b/lib/Rex/Shared/Var/Array.pm
index da83c9559..c7a8bb311 100644
--- a/lib/Rex/Shared/Var/Array.pm
+++ b/lib/Rex/Shared/Var/Array.pm
@@ -80,7 +80,7 @@ sub PUSH {
   __lock sub {
     my $ref = __retrieve;
 
-    if ( !ref( $ref->{ $self->{varname} }->{data} ) eq "ARRAY" ) {
+    if ( ref( $ref->{ $self->{varname} }->{data} ) ne "ARRAY" ) {
       $ref->{ $self->{varname} }->{data} = [];
     }
 
@@ -97,7 +97,7 @@ sub UNSHIFT {
   __lock sub {
     my $ref = __retrieve;
 
-    if ( !ref( $ref->{ $self->{varname} }->{data} ) eq "ARRAY" ) {
+    if ( ref( $ref->{ $self->{varname} }->{data} ) ne "ARRAY" ) {
       $ref->{ $self->{varname} }->{data} = [];
     }