use strict;
use warnings;
use JSON qw( decode_json);
use File::Find;


#Change This Root Depending On File Location 
open (MYFILE, "F:/Program Files (x86)/Spreadsheets/Words.txt") 
	or die "Could not open required file $!"; 
my $firstText = do { local $/; <MYFILE> };
my @firstText = split(' ', $firstText);

open (FILE, "F:/Program Files (x86)/Spreadsheets/Numbers.txt") 
	or die "Could not open required file $!"; 
my $firstNumbers = do { local $/; <FILE> };
my @firstNumbers = split(' ', $firstNumbers);



print "Text Enter\n";

my $sentance = <>;
my @sentance = split(' ', $sentance);

print @sentance;
print $sentance;

use List::MoreUtils qw(first_index);

my @indexes;
foreach my $place (sentance) {
	push (@indexes, first_index { $_ eq $place } @firstText);
};

print @indexes;