Printing the Text Instead of the Value

[duckiebear]

Hello, I am trying to print the text that is printed in the drop down menu rather than the value. I have a form that is populated by the data contained in this form (including the selectedIndex of drop down menus) and it prints both the key and the text associated with the selectedIndex. Any suggestions? Here is my code:

%us_states = ("alabama", "Alabama", "alaska", "Alaska", "arkansas", "Arkansas", "wyoming", "Wyoming");

foreach $state_list (sort keys %us_states) {
     $us_states_options = "$us_states_options<option value=$state_list>$us_states{$state_list}";
     }

# for my create record form
#this line will give the text_state_incorp the text value as its value

print "<td align=left><font size=-1>State Incorporated</td><td><select name=state_incorp onChange=\"text_state_incorp.value = state_incorp.options[state_incorp.selectedIndex].text\"<option value=null>Choose State$us_states_options</select><input type=hidden name=text_state_incorp></font></td><tr>\n";

#for update record form
#this field will not populate as desired and print to the html form that is generated upon clicking a "submit" button on the update page.

if ($state_incorp_alt) {
     $state_incorp_default_options = "$state_incorp_default_options<option value=\"$state_incorp_alt\" selected>$us_states{$state_incorp_alt}";
     $state_incorp_alt = "$state_incorp_alt<br>&nbsp;$us_states{$state_incorp_alt}";
     $state_incorp_alt =~ s/^<br>//g;

     }
$state_incorp_default_options = "$state_incorp_default_options<option value=\"null\">...";

print "<input type=hidden name=state_incorp value=\"$state_incorp_alt\">\n";

print "<input type=hidden name=text_state_incorp value=\"$text_state_incorp_alt\">\n";

print "<td><font size=-1>State Incorporated </td><td><select name=state_incorp>$state_incorp_default_options$us_states_options</select><input type=hidden name=text_state_incorp value=\"state_incorp_alt\"></td><tr>\n";