Select Code to Download

#!/usr/bin/perl -w
use strict;
use List::Util qw(max);
...
chrX    2680070    2744509    XG    4
chrX    2680070    2744509    DT    1
chrX    2680090    2744519    DT    2

use Data::Dumper;
print Dumper \%gene_hash;