popup_menu(-name=>"array",
    -values=>[sort {$array{$a} <=> $array{$b}} keys %array],
    -labels=>\%array,
    -default=>$array1,
    -class=>"formfield")