print '<select name="' . $htmlVariableName . $indexNum . '" onchange="'. "document.$GLOB_FORM_FIELD_NAME.submit();"  . '">';
         my $elementkeys = ();
         foreach $elementkeys (sort {$a <=> $b} keys %ValuesToAppearInDropDownField)
         {
            if ($q->param($htmlVariableName . $indexNum) eq $elementkeys)
            {
               
               print '<option selected value="' . $elementkeys . '">' . $ValuesToAppearInDropDownField{$elementkeys} . '</option>';
            } else
            {
               print '<option value="' . $elementkeys . '">' . $ValuesToAppearInDropDownField{$elementkeys} . '</option>';
            }
         }
         print '</select>';