You could shorten it very slightly by combining the two loops at the end into something like:

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