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

my $parser = new XML::Simple(ForceArray => ['process']);
my $ref = $parser->XMLin('c:\temp\file.xml');
while (my ($host, $processes) = each %$ref){
  foreach my $proc (keys(%{$processes->{process}})){
    print "$proc is running on $host\n";
  }
}