D. persimilis  		ggacaata
D. grimshawi  		tcg-----
D. simulans  	        gg---agc
D. willistoni  		aaataaat
D. virilis  		tcg-----
D. sechellia  		--------
D. mojavensis  		gca-----
D. melanogaster  	gagggact
D. erecta  		gagggacg
D. yakuba  		aagggagg
D. pseudoobscura  	ggacaata
=====

##</code><code>##

D. persimilis  		ggacaata
D. grimshawi  		 tcg-----
D. simulans  		  gg---agc
D. willistoni  		aaataaat
D. virilis  		   tcg-----
D. sechellia  		 --------
D. mojavensis  		gca-----
D. melanogaster  	  gagggact
D. erecta  		    gagggacg
D. yakuba  		    aagggagg
D. pseudoobscura  	 ggacaata
=====

##</code><code>##

foreach my $winno ( 0 .. $highest ) {

    SP:
    foreach my $sp2 ( keys %enum_repo ) {

        my $lmer = $enum_repo{$sp2}[$winno]; 


        if ( $enum_repo{$sp2}[$winno]  ) {

           print "$sp2\t\t$lmer\n";      # PRINTING HERE

        }

    }                    

print "=====\n\n";       

}