foreach $orf (sort {$mips{$a} cmp $mips{$b}} keys %mips) { push @mips, $mips{$orf}; }