Perl 6 Cool Perl 6 #26

 

    %addrbook.classify({ .value.substr(0,1).uc })
Copyright © 2010
http://www.pmichaud.com/2010/pres/