while ( <> ) {
   @D2{ map { my $l = lc; exists $stopwords{$l}?():$l } split /\W+/ } = ();
}