use XML::Rules; # at least 1.08
my $parser = XML::Rules->new(rules => []);

print $parser->ToXML
  (
   [ level1 =>
     [
      [ level2 =>
       [
	[ 'level3']
       ],
      ]
     ]
   ]
   , 0, ' ', '');