while (1) {
  my $end = on_release {warn $_ for @_} "Out of the loop";
  # ...

  last if $cond;
  $end->add("Out of the loop 2");

  # ... etc
}