@scriptfiles=glob('*.txt');
foreach my $file (@checkfiles)
{ 
	open($file, "data.txt") or die("Unable to open file");  
	# read file into an array 
	@data = <$file>;  
	# close file  
	close($file);
		foreach my $line(@data)
		{
				#print $line;
			if ($line =~ m/(Apple|Orange|Litchi)/) 
			{
				$Sheet->Cells($row,$col-1)->{'Value'} =  $file;
					$Sheet-> Cells($row,$col+6)->{'Value'} = $line ;
					$row=$row+1;
			}