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