$j=23;
$x = 0;

LABEL: for ($i=$j; $i<=$#array; $i++) {
  print "top of loop: \$i = $i\n";
  print "interation $x\n";
  $x++;

  if ($array[$i] eq "blah") {
   print "\$i is blah\n";
   last LABEL;
  } elsif ($i == $#array) {
   print "\$i == $#array\n";
   $i = 0;
   next LABEL;
  } else {
   next LABEL;
  }

}