my $jumble = 'RTESAMCNA';
  open FILE, "/usr/share/dict/words";
  my $n = length $jumble;
  my @possible_words = grep /^[$jumble]{$n}$/i, map {chomp; $_} <FILE>;
  close FILE;