my %stopwords;
undef @stopwords{
 map decode("KOI8-R", $_), keys %{getStopWords('ru')}
};

##</code><code>##

say join ' ', grep { ! exists $stopwords{lc $_} } @words;