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