Help for this page

Select Code to Download

Select or download this

use strict;

...
close(ANSWERS);

my $nquestions = scalar(@quiz);

Select or download this

for my $i(0..$nquestions-1) {
    print $quiz[$i]{'q'}."\n";
    print $quiz[$i]{'a'}."\n";
}