diff --git a/test/perl/TestServer.pl b/test/perl/TestServer.pl
index c97067e..1e23ce8 100644
--- a/test/perl/TestServer.pl
+++ b/test/perl/TestServer.pl
@@ -282,7 +282,7 @@
         print(", ");
     }
     print("$key");
-    push($result, $key);
+    push(@arr, $key);
   }
   print("})\n");
   return $result;