diff --git a/tools/test_modules/m23200.pm b/tools/test_modules/m23200.pm
index 69a815ca0..d1fc873fb 100644
--- a/tools/test_modules/m23200.pm
+++ b/tools/test_modules/m23200.pm
@@ -54,19 +54,19 @@ sub module_verify_hash
 
   my (undef, $signature, $type, $iter, $salt_len, $salt_hex, $hash_hex) = split '\$', $hash;
 
-  next unless defined $signature;
-  next unless defined $type;
-  next unless defined $iter;
-  next unless defined $salt_len;
-  next unless defined $salt_hex;
-  next unless defined $hash_hex;
+  return unless defined $signature;
+  return unless defined $type;
+  return unless defined $iter;
+  return unless defined $salt_len;
+  return unless defined $salt_hex;
+  return unless defined $hash_hex;
 
-  next unless ($signature eq 'xmpp-scram');
-  next unless ($type eq '0');
+  return unless ($signature eq 'xmpp-scram');
+  return unless ($type eq '0');
 
   my $salt = pack ("H*", $salt_hex);
 
-  next unless ($salt_len == length $salt);
+  return unless ($salt_len == length $salt);
 
   my $word_packed = pack_if_HEX_notation ($word);