why not abuse the while-loop?

while ($some_condition)
{
   &some_stuff();
   last if $another_condition;
   &some_more_stuff;
   last;
}
[download]