foreach my $letter (split //, $word) {
    $letter_count{$letter}++;
    $repeat_found = 1 if ($letter_count{$letter} > 1);
}