my $word =
    $part eq 'n' ? new Noun(@blah) :
    $part eq 'v' ? new Verb(@blah) :
                   new Adjective(@blah);

print $word->get_english();