use Modern::Perl;

open my $DICT, '<', './2of12inf.txt' or die "Could not open dictionary: $!";

my @dictionary;
my %words8;
my %results;

while (<$DICT>) {
    chomp;
    next unless $_;
    chop if /%$/;
    next if length > 8;
    my $sorted = join '', sort split '';
    push @dictionary, $sorted;
    $words8{$sorted}++ if length == 8;
}

my $maxword  = 0;
my $solution = '';
for my $word8 ( keys %words8 ) {
    my $regex = join '?', split '', $word8;
    for my $word (@dictionary) {
        $results{$word8}++ if $word =~ /($regex?)/ and $1 eq $word;
    }
    if ( $results{$word8} > $maxword ) {
        $maxword  = $results{$word8};
        $solution = $word8;
        say "$solution can make $maxword words";
    }
}
say "Finished";