#!/usr/bin/perl -w
use strict;
use XML::Simple;

my ($ref);

$ref = XMLin('file.xml');

foreach (sort keys %{$ref->{'host1'}->{'process'}}) {
        print "proc: $_\n";
}