my @a = qw [a b c];
for $a[7] (1 .. 5) {
    1; # Body not important.
}
say 0 + @a;