. . print join ' ', grep ! $stopwords->{ $_ }, split( ' ', $words ); . .