$word_list{$_}++ for @words;

@sorted = sort keys %word_list;