for my $word (@words) {
  print "$word\n" if no_repeat($word);
}

sub no_repeat {
  my $word = shift;
  my %letter_cnt;
  $letter_cnt{$_}++ && return for split '', $word;
  1;
}
[download]