my $NPs = [grep &InheritsFrom($_, 'ucf::Constit::NounCn'), @$sentence]