Select Code to Download

sub has_dup_letters {
  local $_ = shift;
...
  my %dups;
  scalar grep $dups{$_}++ for split //;
}

scalar grep $dups{$_}++ for split //;

scalar grep $dups{$_}++,  split //;