use strict;
use XML::Rules;
use Data::Dumper;
my $data=q(
<Data>
<Name><Lname>xyz</Lname><Fname>abcd</Fname></Name>
<Phone><Mobile>123456789</Mobile><Home>55656556</Home></Phone>
<Phone><Mobile>123456789</Mobile><Home>55656556</Home></Phone>
<Name><Lname>UTV</Lname><Fname>EFGH</Fname></Name>
<Phone><Mobile>123456789</Mobile><Home>55656556</Home></Phone>
</Data>);

my $parser = XML::Rules->new(
	stripspaces => 7,
	rules => {
		_default => 'content',
		Name => 'as array no content',
		Phone => sub { #return;
			my ($tag,$attr,$context,$parents) = @_;
			if (! $parents->[-1]{Name}) {
				warn "<Phone> before <Name>!\n";
			} else {
				push @{$parents->[-1]{Name}[-1]{Phones}}, $attr;
			}
			return
		},
		Data => sub {$_[1]->{Name}},
	}
);

my $ref = $parser->parse($data);
print Dumper($ref);