Help for this page
$answer =~ tr/OBAFGKM/1234567/; if ($answer >= 56 && $answer <= 59) ...
@results= ( undef, #index 0 unused [ #describe question 1 qw/ g0 k5 g6 g9/ ], # another row for each question.