Select Code to Download

#!/usr/bin/perl
use warnings;
...
for my $gene (sort keys %relative) {
    say join ' : ', (keys %{ $relative{$gene} })[0], $gene;
}

Micmi1_478558 => { Micmi1_311120 => undef },
Thiar1_121068 => { Thite2_36710  => undef,
...
                   Spoth2_41043  => undef,
                   Myche1_767736 => undef, }
...

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,