Select Code to Download

use Sort::Naturally;           # from CPAN
foreach $orf (nsort keys %mips) {
    push @mips, $mips{$orf};
}

my @mips = @mips{nsort keys %mips};