Select Code to Download

Select or download this

%menu_labels = ('one'=>'eenie',
                'two'=>'meenie',
...
print $CGI->popup_menu(-name=>'menu_name',
            -values=>\@menu_values,
            -labels=>\%menu_labels);

Select or download this

%menu_labels = ( eenie  => 'one',
                 meenie => 'two',
...
print $CGI->popup_menu(-name   => 'menu_name',
                       -values => \@menu_values,
                       -labels => \%menu_labels);