push @{$words_all->{$_}}, $file_key unless exists $seen{$};