my @candidates = sort nRandomIntegers( $wantedN );
my @chosen;
while( "not done" ){
    $line = readline $file;
    "keep reading if current line is not first candidate";#:)

    if( satisfyConditions( $lineish , \@chosen ) ){
        push @chosen, $lineish;
        shift @candidates;
    }
    "stop reading if chosen   wantedN  lines";
    "pick new candidates when run  out of candidates ";
    "rewind filehandle if reach the end but not wantedN";
    "give up, rewinded three times, never gonna happen";
}