Perhaps XML::Trivial could help you:

#!/usr/bin/perl
use XML::Trivial;
use strict;
use warnings;

foreach my $hostelm (XML::Trivial::parseFile('file.xml')->{0}->ea) {
    foreach ($hostelm->ea) {
    print "Host: ".$hostelm->en." Process: ".$_->ah('name')."\n"
        if $_->en eq 'process';
    }
}
[download]