The continue block allows the while loop to act like a for loop
$i=1; while ($i <= 10) { if ($i == 5) { print "\$i == $i\n"; next; } print "$i "; }continue {$i++;} # $i is incremented only once