Help for this page
foreach $orf (sort {lc($mips{$a}) cmp lc($mips{$b})} keys %mips) { push @mips, $mips{$orf}; }
# Under Construction