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

print $parser->ToXML( [ family => { name => 'Kawasaki' },
  [
    [father => 'Yasushisa' ],
    [mother => 'Chizuko' ],
    [children =>
      [
        [girl => 'Shiori'],
        [boy  => 'Yasuke'],
        [boy  => 'Kairi']
      ]
    ]
  ]
], 0, ' ', '');