Select Code to Download

my @a = (1,2,3);
my $c = $a[-1];
...
    push @a, ++$c if $c < 10;
    print "$_\n";
}

...
for ((), @a) {
...
          5,
          6
        ];