#!/usr/bin/perl -w
use strict;
open (FILEHANDLE,"$ARGV[0]") || die("Could not open OnlyNormal file");
   my @homo = <FILEHANDLE> ;
 close (FILEHANDLE);
   
 open (FILEHANDLE, "$ARGV[1]") || die("Could not open input file");
    my @file = <FILEHANDLE> ;
 close (FILEHANDLE);   
     foreach my $line (@homo)
     {
        chomp $line;
        (my $GroupID)=split(/\t/,$line);
        foreach my $Gene(@file)
        {
              chomp $Gene;
              if ($line =~m/\t$Gene\t/ && $line =~m/9606/) #Human Gene name and Human Taxid
                    {
                     foreach my $LINE(@homo)
                        {
                           (my @drosophila)=split(/\t/,$LINE);
                           if ($LINE =~m/^$GroupID\t/ && $line =~m/7227/) # Gene group ID and Drosophila Tax ID
                               {
                                 print $Gene . "\t". $drosophila[3] . "\n"; # [3] is the Drosophila Gene name at the group ID determined above
                               }
                        
                        }
                    }
         }
     }