#!/usr/bin/perl

#use strict;
#use warnings;

my @text = qw/A B C D E F G H I J/;


for my $element (@text){
	if ($element = "F")	{
	print "$element is at index: $index_number\n";
	$index_number++;
	}
	#last if ($element = "F")
}