for (INIT; COND; POST) {
   BODY;
}

##</code><code>##

INIT;
while (COND) {
   BODY;
   POST;
}

##</code><code>##

$j=1;
while ($j<=10) {
   print "$j\n";
   $j++;
}

##</code><code>##

print "$_\n" for 1..10;

##</code><code>##

say for 1..10;