Select Code to Download

File#1:

GeneID  ColA    ColB
...
Gene03  5   20
Gene05  22  40
Gene06  88  2

 File1:                  File2: 

 Gene01 5   15          Gene01  12  3
 Gene03 25  5           Gene03  5   20

 if ($tmpArray1[0] eq $tmpArray2[0]){
 $commongenes{$tmpArray2[0]} = 
    $tmpArray1[1].':'.$tmpArray1[2].':'.$tmpArray2[1].':'.$tmpArray2[2
+];
 }

 #!/usr/bin/perl -w
 use strict;                    

...
    my @commongenes = %commongenes;               
    print "@commongenes\n\n";              
  }