You can also break from a loop from a subroutine.

  sub test() {last unless $_}
  for (1, 2, 0, 3) {
    print "$_\n";
    test;
  }
  // 1 2 0

I miss it :(