my $r = 0;
while ($r < 10) {
   print "one iteration\n";
   $r++;
} continue {
   $r = 10;
   print "I'm at the end but still don't exited the loop\n";
}