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

##</code><code>##

%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);