Change the sort to

sort { $list{$a} <=> $list{$b} || $list{$a} cmp $list{$b} } keys %list

or compacted...

print "<select name=m_v>\n",
    ( map {"\t<option name=\"$_\">$list{$_}\n" } 
           sort { $list{$a} <=> $list{$b} || $list{$a} cmp $list{$b} }
+ keys %list ),
    '</select>';
[download]

-Lee

"To be civilized is to deny one's nature."