perl -E 'my @tokens=qw|this that other foo bar baz|;
         my %stopwords=qw|that 1  foo 1|;
         say for grep {!$stopwords{$_}} @tokens'
__OUTPUT__
this
other
bar
baz