Hi Monks, I since the popup_menu doesn't allow order interms of the list , I tried creating one from scratch. However I found problems when my variables have any fun characters, nothing get displayed.

# print $q->popup_menu(  
        #               -values=>\%ValuesToAppearInDropDownField,
        #               -name=>$htmlVariableName . $indexNum,
        #               -onChange=>"document.$GLOB_FORM_FIELD_NAME.sub
+mit();");
[download]

my code

         print '<select name="' . $htmlVariableName . $indexNum . '" o
+nchange="'. "document.$GLOB_FORM_FIELD_NAME.submit();"  . '">';
         my $elementkeys = ();
         foreach $elementkeys (sort {$a <=> $b} keys %ValuesToAppearIn
+DropDownField)
         {
            if ($q->param($htmlVariableName . $indexNum) eq $elementke
+ys)
            {
               
               print '<option selected value="' . $elementkeys . '">' 
+. $ValuesToAppearInDropDownField{$elementkeys} . '</option>';
            } else
            {
               print '<option value="' . $elementkeys . '">' . $Values
+ToAppearInDropDownField{$elementkeys} . '</option>';
            }
         }
         print '</select>';
[download]

how can do this?

Retitled by Steve_p from 'Perl / Cgi : ReCreating Popup Menu Code'.