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