>perl -wMstrict -le
"my @text = ('A' .. 'J');
 ;;
 I:
 while (my ($i, $element) = each @text) {
   next I unless $element eq 'F';
   print qq{$element is at index $i};
   last I;
   }
"
F is at index 5