Select Code to Download

my %test = (
question1 => 'a',
...
             'b'
             ],
);

for my $q1 (keys %test) {
...
  $grade++;
}
}