for ($i = 0; $i < 4; $i++) {
  print "Start $i ";
  if ($i == 2) {
    goto TWO;
  }
  print "End\n";
  next;
TWO:
  print "Middle\n";
}

##</code><code>##

Start 0 End
Start 1 End
Start 2 Middle
Start 3 End