label FOR MY remember my_scalar '(' mexpr ')' mblock cont
label FOR scalar '(' remember mexpr ')' mblock cont
label FOR '(' remember mexpr ')' mblock cont
label FOR '(' remember mnexpr ';' texpr ';' mintro mnexpr ')'
my_scalar:  scalar
scalar  :   '$' indirob
indirob :   WORD
        |   scalar %prec PREC_LOW
        |   block
        |   PRIVATEREF

##</code><code>##

for ${\$i[0]} ( 1..10 ) { print @i, $/ }
__END__
Not a GLOB reference at ...

##</code><code>##

for ${*X=\$i[0];*X} ( 1..3 ) { print "$X(@i)$/" }
1()
2()
3()