my($words, %everything);
my @countKey = keys %everything;
my @countValue = values %everything;