use POSIX qw/floor/;

local $/= '===';

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

for (1..$maxcount){
  my $idx = floor rand @allquestions;  
  push @questions, splice @allquestions, $idx, 1;
}
return @questions;

##</code><code>##

local $/= '===';

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

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

return @questions;