sub neuter (Dog $bobby is rw) { ... }