+
+ # For irregular nouns that have plurals that do not end in s
+ # then add the possessive form of the plural as well
+ next unless $add_possessive;
+ foreach (@a) {
+ next if /s$/;
+ $possessive{$_} .= "$_\'s\n";
+ push @{$possessive_cross{$w}}, $_
+ }