Select Code to Download

use strict;
use warnings;
...
for my $i ($min..$max) {
   print(join("\t", $i, map { $_->{$i} ? 'yes' : '' } @lkups), "\n");
}

use strict;
use warnings;
...
for my $i ( sort { $a <=> $b } keys(%global_lkup) ) {
   print(join("\t", $i, map { $_->{$i} ? 'yes' : '' } @lkups), "\n");
}