my @rand_questions = ();
foreach (0 .. $num_questions_per_test) {
     my $rand = int(rand(scalar(@questions) - 1);
     push(@rand_questions,$questions[$rand]);
}