diff --git a/src/core/List.pm b/src/core/List.pm
index 161f77c2594..475be5bc089 100644
--- a/src/core/List.pm
+++ b/src/core/List.pm
@@ -1,6 +1,12 @@
 augment class List {
     method perl() {
-        '(' ~ self.map({ $_.perl }).join(', ') ~ ')';
+        # '(' ~ self.map({ $_.perl }).join(', ') ~ ')';
+        my $result = "(";
+        for self -> $x {
+            $result ~= ", " if $result.chars > 1;
+            $result ~= $x.perl;
+        }
+        return $result ~ ")";
     }
 }