my $wordlist = 'words.en.list'; # assumed English wordlist
my @words = ();
{
  open my $words, '<', $wordlist or die "$wordlist: $! $^E";
  while (<$words>) { push @words, $_ if m/$pat/ }
  close $words;
}