do{
    $_ = 100 unless$_;--$_;
    # do something
} while $_
[download]