@list=map  {substr($_,1)}
      sort
      map  {pack("CA*",length($_),$_)}
      @words;
#or
@list=map  {substr($_,1)} sort
      map  {pack("CA*",length($_),$_)} @words;