sub test_archon
{
  my %numhash;
  for (1 .. $Max_Questions) {
    my $randnum = int(rand($Max_Lines) + 1);
    redo if exists ($numhash{$randnum});
    $numhash{$randnum} = 1;
  }
  return [keys (%numhash)];
}