my $num = shift;
my @init = (0..$num-1);
my @questions;
while (<>) {
  $questions[splice @init, rand(@init), 1] = $_, next if $. <= $num;
  my $i = rand($.);
  $questions[$i] = $_ if $i < $num;
}