my %class = qw( n Noun v Verb );
my $default = 'Adjective';
...