I'm surprised this does anything at all since your input file has 'externtype' attributes and you are working on 'eventtype' (and under warnings, you have to check that an attribute is defined before comparing it with a string)

You are using the cut method on $c, which is a child of $TRADE. $TRADE->cut; should work better.