while ( scalar keys %qs  < $Max - 1 ) {
  $qs{int(rand($lines))}++;
}