use strict;
use Lingua::Stem;

my $stemmer = Lingua::Stem->new();
my @words   = qw/maintained maintenance environment experience/;

my $stems = $stemmer->stem(@words);

print "$_ " for (@$stems);

##</code><code>##

maintain mainten environ experi