This appears to be a continuation of your several previous threads, Reaped: Compare to XML files, Compare 2 XML files, and not fetching correct records in xml output, and the code you've posted here is exactly the same as you posted here. As others have said, this is a place to learn Perl, and not a code writing service (usually). Also, duplicate nodes are not appreciated and will often be reaped (deleted).

Having said that, while it is appreciated that you've posted sample input, code, and expected output, the output does have to match the input, or you have to explain how the output is generated from the input. So for example, why are the eventids 2667 and 1503 duplicated, why are they output in that particular order, etc.