(perl #131836) avoid a use-after-free after parsing a "sub" keyword