The XML is not very well designed ... depending on the order of tags in a data oriented XML is a bad idea. Anyway ... do you like this output better?:

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);
[download]