sub has_dup_letters {
   local $_ = lc shift;
   my $alpha = @_ ? shift : 'a-z';
   eval "tr/$alpha//cd";
   my (%dups, $total);
   $dups{$_}++ and $total++ for split //;
   return $total;
}