my $word = ({ qw/n Noun v Verb/ }->{$part} || 'Adjective')->new(...);