--DATA1--			--DATA2-- 
Monk Apple   One	     Sam  Orange  Two	
Sam  Orange  Two	     Sue  Apple   One	
Sue  Apple   One	     Monk Apple   One
		 	            Mike Bannana One
			             Don  Apple   Two	


##</code><code>##

--DATA3--
Don
Mike

##</code><code>##


my @Found = ();

while (my $line = <DATA1>)
{
chomp $line1;

while (my $line2 = <DATA2>)
{
chomp $line2;

if ("$line1" eq "$line2") {}
else { push @Found, $line2 }
}
}

open (DATA3, "data3") or die;
{
print @Found;
}