Select Code to Download

use 5.014;
use strictures;
use List::Util "shuffle";
...
    say {$db} join ";", $id, shuffle @words[ $start .. $end ];
    last if -s $db > 32_000_000_000;
}

use 5.014;
use strictures;
use Lucy;
...
               index  => $index,
               create => 1 );
}

use 5.014;
use strictures;
use Lucy;
...

    print "\nQuery: ";
}

Searching 126,871,745 records.
Query (q to quit): ohai

...
Query: pollen AND bee

Matched 0 records in 21.61 milliseconds