local $/= '===';

my @allquestions = <QUESTIONS>;
my @questions;

push @questions, splice @allquestions, rand @allquestions, 1 for (1..$maxcount)

return @questions;