my(@words, %count, $word);