OUTERLOOP: {
  blah
  while ($foo) {
    blah
    next OUTERLOOP if $cond;
    blah
  }
  blah
} continue {
  redo if $cond;
}