foreach $file (glob('*.rtf'))
{ 
    open(my $fh, $file) or die("Unable to open '$file': $!");  
    while (my $line = <$fh>)
    {
        if ($line =~ m/(Apple|Orange|Litchi)/i) 
        {
            $Sheet->Cells($row,$col-1)->{'Value'} = $file;
        }
    }
	 foreach my $files (glob('*.txt'))
	 { 
     open(my $fh1, $files) or die("Unable to open '$files': $!");  
	 if ( grep /$file/i, <$fh1> )
     {
     $Sheet->Cells($row,$col+1)->{'Value'} = $files;
	 }
	 else
	 {
	 $Sheet->Cells($row,$col+1)->{'Value'} = "No Text Files";
	 }
	 $row=$row+1;
	 close $fh1;
     }
	close($fh);
}

##</code><code>##

The ouput im expecting is as follows:-

RTF File Name       TXT File Name
    1                No Text Files
    2                   a
    3                No Text Files
    4                   b
    5                   c

##</code><code>##

RTF File Name       TXT File Name
    1                No Text Files
                     No Text Files
                     No Text Files
    2                    a
                     No Text Files
                     No Text Files
    3                No Text Files
                     No Text Files
                     No Text Files
    4                No Text Files
                          b
                     No Text Files
    5                No Text Files
                     No Text Files
                          c