my $XML = <<'*END*';
<root>
 <sub>
   <a>foo</a>
   <a>bar</a>
   <b>blah</b>
 </sub>
 <sub>
   <a>baz</a>
   <b x="4">blah blah</b>
 </sub>
</root>
*END*

use XML::Rules;
use Data::Dumper;

my $parser = XML::Rules->new(
	rules => XML::Rules::inferRulesFromExample( $XML),
);
my $ref = $parser->parse( $XML);
print Dumper($ref);