Take a look at XML::Filter::Distributor as a replacement for your SAXT; or even at the Manifold() machine which does something like what you want using XML::Filter::Distributor and XML::Filter::Merger.

- Barrie