for (my $i=0;$i<3;$i++) { print $i }
for (;;) { last }
foreach my $x (1..3) {}
for my $x qw(a b) {}