#!/usr/bin/perl
$dir = "C:/Perl/bin/kegg";
open (FILE3,">>","$dir/keggdifference1.txt"); 
open (FILE4,">>","$dir/keggdifference2.txt"); 
 
open (FILE,"<","$dir/common.txt");
while (<FILE>) {
	chomp ($file=$_);
	@array =split (/\t/,"$file");
#print "$array[0]\n";
}	
open (FILE1,"<","$dir/bacillus1.txt");
while (<FILE1>) {
	chomp ($file1=$_);
	@array1 =split (/\t/,"$file1");
	#print "$array1[3]\n";
}

foreach ($array[0])
	{
		foreach ($array1[3])
{

				if($array[0] eq $array1[3])
				{
					
					print FILE3 "$array[0]\n";
				}
				else
				{
					
					print FILE4 "$array[0]\n";
				}
			}
	
}