$letters[ord chop]++ while $_;