perl如何写XML

我现在想写一个junit result格式的XML，比如
XML code

<?xml version="1.0" encoding="UTF-8"?>
<testsuite errors="0" failures="0" hostname="HOSTNAME" name="BAG" tests="2" time="3.0" timestamp="2011-01-20T15:16:00Z">
  <testcase name="TESTCASE1" time="1.0" />
  <testcase name="TESTCASE2" time="1.0" />
  <testcase name="TESTCASE3" time="1.0">
    <failure message="FAIL_MSG">failed</failure>
  </testcase>

</testsuite>

现在用perl的XML::Simple来写，他们的$hash{testcase}->{name}中的key值是相同的，不知道该如何去写hash定义。

这种问题最好用文本模板工具，而不是XML。