my %letters;
$letters{$_}++ for grep /\w/, split //, $input;

That would be simpler as:

my %letters;
$letters{$_}++ for $input =~ /\w/g;