until with continue
$loop_index = 1; until ($loop_index > 10) { print "Hello!\n"; } continue { $loop_index++; }