$html .= qq{<select name="my_parameter">\n};
for my $option ( ['option1', 'Option 1'],
                 ['option2', 'Option 2'],
                 ['option3', 'Apple pie']  ){
 if ($option->[0] eq $existing_value){
  $html .= qq{<option value="$option->[0]" selected>$option->[1]</option>\n};
 }else{
  $html .= qq{<option value="$option->[0]">$option->[1]</option>\n};
 }
}
$html .= "</select>\n";