use 5.014;
use strictures;
use List::Util "shuffle";

open my $words, "<", "/usr/share/dict/words" or die $!;
chomp ( my @words = <$words> );
my $top = @words - 40;
@words = shuffle @words;
open my $db, ">", "/tmp/PM.db" or die $!;
for my $id ( 999_999 .. 999_999_999 )
{
    use integer;
    my $end = rand($top);
    my $range = rand(35) + 5;
    my $start = $end - $range;
    $start = 0 if $start < 0;
    say {$db} join ";", $id, shuffle @words[ $start .. $end ];
    last if -s $db > 32_000_000_000;
}