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