use strict;
use warnings;
use Data::Dumper;
use Lingua::Stem;
use Lingua::Stem::Snowball;

chomp( my @names = <DATA> );

my $stemmer = Lingua::Stem->new( -locale => 'EN' );
$stemmer->stem_caching({ -level => 2 });
my $stems = $stemmer->stem(@names);
print "Stem => ", Dumper $stems;

@names = map lc, @names;
$stemmer = Lingua::Stem::Snowball->new( lang => 'en' );
$stemmer->stem_in_place( \@names );

print "Snowball => ", Dumper \@names;


__DATA__
John Smith Plumbing
J Smith's Plumbing
J Smith's Plumbing
Jerry Spaulding Goldsmith
J Spaulding's Gold