You might find DBIx::XML::DataLoader useful for this although it might prove to be overkill for your particular application.

/J\