$letters{lc $_}++ for split//;