use strict;

open(QUESTIONS, '<', 'questions.txt') or die $!;
open(ANSWERS, '<', 'answers.txt') or die $!;

my @quiz;
while(my $question = <QUESTIONS>) {
    my $answer = <ANSWERS>;
    chomp ($question);
    chomp ($answer);
    push @quiz, {
        'q' => $question,
        'a' => $answer,
    };
}

close(QUESTIONS);
close(ANSWERS);

my $nquestions = scalar(@quiz);

##</code><code>##

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