C:\Code>perl adjacent.pl

*----------------------------------------------*
Gene1 , Gene2, Gene3, Gene4
GeneA , GeneB, GeneC, GeneD, GeneE, GeneF
GeneX , GeneP, GeneY