my $count = 0;
while ( $count < 10 ) {
   print "$count\n";
} continue {
   $count++;
}