Perl 6 Cool Perl 6 #30

 

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