Simple way to do letter frequency:
#!/usr/bin/perl
# https://perlmonks.org/?node_id=11105638
use strict;
use warnings;
use Path::Tiny;
my @letters = split //, 'aaaaaaaaabbccddddeeeeeeeeeeeeffgggghhiiiiiiii
+ijkllllmmnnnnnnooooooooppqrrrrrrssssttttttuuuuvvwwxyyz';
my @tiles = @letters[map rand @letters, 1 .. 9];
print "tiles: @tiles\n";
my $pattern = join '', map "$_?", sort @tiles;
my @matches = grep join('', sort split //) =~ /^$pattern$/,
grep /^[@tiles]{2,}\z/ && /[aeiouy]/, # lc, size & vowel
path('/usr/share/dict/words')->lines({chomp => 1});
print "\nmatches:\n\n@matches\n";