Some do sometimes and sometimes not:
sub sometimes_i_finish { my $arg = shift; until ($arg == 0) { $arg -= 2 } return $arg; }