or download this
# Find how close each letter is to half of the total word possibilitie
+s to ensure maximum gain every guess after being sorted
foreach my $occur (keys %alphabet) {
...
say $_ foreach @narrowed; # Word list
say $#narrowed + 1;
say sort { $alphabet{$a} <=> $alphabet{$b} } keys %alphabet; # Sort as
+cendingly; whichever letter is closest to 0, i.e., and therefore whic
+hever letter will eliminate the most words.