$letters{substr($_,0,1)} for @foo;