XXX; YYY; #### print $q->popup_menu(-name=>'xml_server',-values=> \@array_of_selections);