use Lingua::StopWords qw( getStopWords );
my $rustop = getrustop();
print $rustop;
sub getrustop {
    my $stopwords = getStopWords('ru');
    return join("|",keys %$stopwords);
}