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

##</code><code>##

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