$answer =~ tr/OBAFGKM/1234567/;
if ($answer >= 56 && $answer <= 59) ...

##</code><code>##

@results= ( undef, #index 0 unused
  [ #describe question 1
     qw/ g0 k5   g6 g9/ ],
   # another row for each question.