print "<select name=\"m_v\">";
# %list = whats();
my %list = ( 'alpha' => 3, 'bravo' => 5, 'charlie' => 1 ) ;
sub hashValueAscendingNum {
   $list{$a} <=> $list{$b};
}
foreach $key (sort hashValueAscendingNum (keys(%list))) {
  print "<option value=\"$key\">$list{$key}</option>";
}
print "</select>";

##</code><code>##

<select name="m_v"><option value="charlie">1</option><option value="alpha">3</option><option value="bravo">5</option></select>