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>';