$a = 3;
LOOP_ONCE: {
   do {
       last unless $a == 4;
   } while cond();
}