diff --git a/t/spec/S02-names_and_variables/perl.t b/t/spec/S02-names_and_variables/perl.t
index 36fa24e..2cad9ea 100644
--- a/t/spec/S02-names_and_variables/perl.t
+++ b/t/spec/S02-names_and_variables/perl.t
@@ -55,7 +55,7 @@ my @tests = (
     [ { :a(1) }, { :b(2), :c(3) } ],
 );
 
-plan 12 + 2*@tests;
+plan 16 + 2*@tests;
 #?pugs emit force_todo 8, 45..50, 94, 96;
 
 #?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PUGS" {
@@ -168,3 +168,24 @@ plan 12 + 2*@tests;
 
     # TODO: more tests that show eval($t1_init) has the same guts as $t1.
 }
+
+# RT #63724
+{
+    my @original      = (1,2,3);
+    my $dehydrated    = @original.perl;
+    my @reconstituted = eval $dehydrated;
+
+    is @reconstituted, @original,
+       "eval of .perl returns original for '$dehydrated'";
+    #?rakudo todo 'RT #63724'
+    ok $dehydrated ~~ / '(' .* ',' .* ')' /, 'List.perl has parens and comma';
+
+    @original = (1,);
+    $dehydrated    = @original.perl;
+    @reconstituted = eval $dehydrated;
+
+    is @reconstituted, @original,
+       "eval of .perl returns original for '$dehydrated'";
+    #?rakudo todo 'RT #63724'
+    ok $dehydrated ~~ / '(' .* ',' .* ')' /, 'List.perl has parens and comma';
+}