my %deny_letters = map { $_ => 1 } split(//, $pattern) ;
  my @p = split //, $pattern ;