tests: fix AST return in Perl

tests/scripts/python/unparse.py

@@ -460,7 +460,14 @@ class UnparsePerl(UnparsePython):
         """Add an AST Return in output."""
         self.fill('return')
         if node.value:
-            self.add(' ', node.value, ';')
+            self.add(
+                ' ',
+                (self.prefix,
+                 '%' if isinstance(node.value, ast.Dict) else '$'),
+                node.value,
+                (self.prefix, None),
+                ';',
+            )
 
     def _ast_str(self, node):
         """Add an AST Str in output."""