my @word = keys %count;
my @count_word = map{ $count{$_} || 0 } @word;