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