fix example

Author: gfldex

doc/Language/control.pod6

@@ -360,12 +360,12 @@ X<|lazy list,gather>X<|lazy list,take>
 C<gather> is a statement or block prefix that returns a L<sequence|/type/Seq>
 of values. The values come from calls to C<take> in the dynamic scope of the C<gather> block.
 
-    my @a = gather {
+    my $a = gather {
         take 1;
         take 5;
         take 42;
     }
-    say join ', ', @a;          # 1, 5, 42
+    say join ', ', $a;          # 1, 5, 42
 
 C<gather/take> generates values lazily, so the C<gather> block generally runs only until it hits
 the first C<take>. Code after the first C<take> is executed as soon as the next value is consumed