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