#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper::Concise;
use Lingua::Stem::En;

my $words         = [ 'wordy', 'another' ];
my $stemmed_words = Lingua::Stem::En::stem({ 
                    -words  => [$words],
                    -locale => 'en',
                    });
print Dumper($stemmed_words);
[download]