>perl -wMstrict -le
"my @text = qw/A B C D E F G H I J/;
 ;;
 I:
 for my $i (0 .. $#text) {
   next I unless $text[$i] eq 'F';
   print qq{$text[$i] is at index $i};
   last I;
   }
"
F is at index 5