for $i (@a) {}
foreach our $x (@a) {}
for my $x (@a) {}
for (@a) {}
LABEL: foreach $x (@b) {}
for $x qw(a b) {}
foreach (my $i = 0; $i < 2; $i++) {}
for state $s (@a) {}