Select Code to Download

my $question = {
    descriptions => {
...
    },
    choices => [ qw/m f o/ ]
}

for my $choice ( @{ $question->{choices} } ) {
    my $text = $question->{descriptions}{$choice};
    print qq[<option value="$choice">$text</option>\n];
}

$valid = exists $question->{descriptions}{$answer};