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