my @a = (1,2,3);
my $c = $a[-1];

#for (@a) {      # prints 1..10
for ((), @a) {   # prints 1..3
    push @a, ++$c if $c < 10;
    print "$_\n";
}