#use strict;
#use 5.010;
use Spreadsheet::Read qw(ReadData);
my $book = ReadData ('UE_NW_Parameters.xlsx');
#my @files = grep { -f } (<*.txt>,<*main_log>,<*Project>,<*properties>);	
my @files = grep { -f } (<*main_log>);	
my @rows = Spreadsheet::Read::rows($book->[1]);
foreach my $i (1 .. scalar @rows) {
    foreach my $j (1 .. scalar @{$rows[$i-1]}) {
        my $temp = "\n$rows[$i-1][$j-1]";
		my @keywords = "$temp";
		print @keywords;
		}
	foreach my $file (@files){
		open(my $fh, '<', $file) or die $!;
		my @content = <$fh>;
		close($fh);
		my $l = 0;
		
		foreach my $kw (@keywords)
			{
				foreach (@content){
					$l++;
					my $search = $kw;
					if ($search =~ /(\ d+)/)
					{
						printf 'Found keyword %s in file %s, line %d:%s'.$/, $search, $file, $l, $_;
						last;
					}
					}
			}		
		}
			
}