programming-examples/perl/Statement/The continue block allows the while loop to act like a for loop.pl

$i=1;
while ($i <= 10) {
     if ($i == 5) {
         print "\$i == $i\n";
         next;
     }
     print "$i ";
}continue {$i++;}    # $i is incremented only once