• That's a crazy amount of code, way way more than required to demonstrate the problem. At most 20 lines are needed here, which is an exceptionally high amount.
• None of the rules being discussed are even mentioned in the code! How is the code in the least bit relevant?
• The code doesn't run as no data was provided.
• Desired output is not provided.

I know a lot about P::RD, but I'm not touching this mess.