foreach my $country ( sort keys %cust_main_county ) {
$script_html .= "\nif ( country == \"$country\" ) {\n";
foreach my $state ( sort keys %{$cust_main_county{$country}} ) {
foreach my $country ( sort keys %cust_main_county ) {
$script_html .= "\nif ( country == \"$country\" ) {\n";
foreach my $state ( sort keys %{$cust_main_county{$country}} ) {
my $text = $dstate || '(n/a)';
$script_html .= qq!opt(what.form.${prefix}state, "$dstate", "$text");\n!;
}
my $text = $dstate || '(n/a)';
$script_html .= qq!opt(what.form.${prefix}state, "$dstate", "$text");\n!;
}