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