%month_array = (
1  => "Jan",
2  => "Feb",
3  => "Mar",
4  => "Apr",
5  => "May",
6  => "June",
7  => "July",
8  => "Aug",
9  => "Sep",
10 => "Oct",
11 => "Nov",
12 => "Dec"
);
##</code><code>##

popup_menu(-name=>"month_array",
	-values=>\%month_array,
	-labels=>\%month_array,
	-default=>$mon,
	-class=>"formfield")

##</code><code>##

popup_menu(-name=>"month_array",
	-values=>[sort keys %month_array],
	-labels=>\%month_array,
	-default=>$mon,
	-class=>"formfield")