diff --git a/src/tools/PerfectHash.pm b/src/tools/PerfectHash.pm
index db06d0461c4..ce03ed8bbcb 100644
--- a/src/tools/PerfectHash.pm
+++ b/src/tools/PerfectHash.pm
@@ -87,13 +87,13 @@ sub generate_hash_function
 	my $hash_seed2;
 	my @subresult;
   FIND_PARAMS:
-	foreach (17, 31, 127, 8191)
+	for ($hash_seed1 = 0; $hash_seed1 < 10; $hash_seed1++)
 	{
-		$hash_mult2 = $_;    # "foreach $hash_mult2" doesn't work
-		for ($hash_seed1 = 0; $hash_seed1 < 10; $hash_seed1++)
+		for ($hash_seed2 = 0; $hash_seed2 < 10; $hash_seed2++)
 		{
-			for ($hash_seed2 = 0; $hash_seed2 < 10; $hash_seed2++)
+			foreach (17, 31, 127, 8191)
 			{
+				$hash_mult2 = $_;    # "foreach $hash_mult2" doesn't work
 				@subresult = _construct_hash_table(
 					$keys_ref,   $hash_mult1, $hash_mult2,
 					$hash_seed1, $hash_seed2);