perl -MCGI=:standard -e 'print popup_menu({ -name    => "query",
                                            -values  => [1, 2, 3],
                                            -labels  => {qw{ 2 label2 1 label1 3 label3 }},
                                            -default => 2 })'
<select name="query" >
<option value="1">label1</option>
<option selected="selected" value="2">label2</option>
<option value="3">label3</option>
</select>