use strict;
use warnings;

my $howMany = shift || 100;
my $done = 0;

my $rxValidWord = qr{^([A-Za-z])[-a-z]+};
my $totalWordCt = 0;
my $validWordCt = 0;
my %letterCts = ();

my @letters = (q{a} .. q{z});
my $currentLetter = q{};
my $rxCurrent = getNextLetter();

my @wordCache = ();

my $dictFile = q{../Web2};
open my $dictFH, q{<}, $dictFile
   or die qq{open: $dictFile: $!\n};

while(<$dictFH>)
{
    $totalWordCt ++;
    next if $done;
    next unless /$rxValidWord/;
    my $initLetter = $1;

    $validWordCt ++;
    chomp;

    if($initLetter =~ $rxCurrent)
    {
        push @wordCache, $_;
    }
    else
    {
        reportForLetter();
    }
}
reportForLetter() if $currentLetter;

close $dictFH
   or die qq{close: $dictFile: $!\n};

print
   qq{\n},
   qq{Total words in dictionary - $totalWordCt\n},
   qq{Valid words processed     - $validWordCt\n};

sub generateSlice
{
    my ($total, $howMany) = @_;
    my $rlPool = [0 .. ($total - 1)];
    return $rlPool if $total <= $howMany;
    my $rlSlice = [];
    for (1 .. $howMany)
    {
        push @$rlSlice, splice @$rlPool, int rand scalar @$rlPool, 1;
    }
    return [sort {$a <=> $b} @$rlSlice];
}

sub getNextLetter
{
    if(@letters)
    {
        $currentLetter = shift @letters;
        my $charClass =
           q{[}
           . $currentLetter
           . uc $currentLetter
           . q{]};
        return qr{$charClass};
    }
    else
    {
        $currentLetter = q{};
        $done ++;
        return 0;
    }
}

sub reportForLetter
{
    my $savedWord = $_;

    print
       qq{\n},
       qq{Found @{[scalar @wordCache]} words },
       qq{for letter $currentLetter\n};

    my $rlSlice = generateSlice(scalar @wordCache, $howMany);
    my @randomWords = @wordCache[@$rlSlice];

    print qq{$howMany words selected at random\n};
    print qq{     $_\n} for @randomWords;

    @wordCache = ($savedWord);
    $rxCurrent = getNextLetter();
}