This seems to work OK for me. Can you provide some sample data for %list to illustrate what's going wrong?

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>";
[download]

Output:

<select name="m_v"><option value="charlie">1</option><option value="al
+pha">3</option><option value="bravo">5</option></select>
[download]

_______________
D a m n D i r t y A p e
Home Node | Email