Help for this page

Select Code to Download


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