my ($chosen_answer) = grep { $_->[0] eq $answer } @$choices;