use XML::Simple;

my $ref = XMLin( $xmlfile);


##</code><code>##

<root>
 <sub>
   <a>foo</a>
   <a>bar</a>
   <b>blah</b>
 </sub>
 <sub>
   <a>baz</a>
   <b x="4">blah blah</b>
 </sub>
</root>


##</code><code>##

use XML::Rules;

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


##</code><code>##

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::Simple;
use Data::Dumper;

my $ref = XMLin( $XML);
print Dumper($ref);
__END__


##</code><code>##

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);