#!/usr/bin/env perl       
use strict;
use warnings;
use XML::XPath;
use Data::Dumper;

my $xml = 'ApplicationList.xml';
my $xp = XML::XPath->new(filename => $xml);
my $appxpath =  $xp->findnodes("//application_list/application"); # no end /
my %appid = ();

foreach my $appnodeset ($appxpath->get_nodelist) {
  my $id   = $xp->find('./@id',$appnodeset)->string_value;
  my $name = $xp->find('./@name',$appnodeset)->string_value;
  s/^\s+|\s+$//g for $id,$name;
  $appid{$id} = $name;
}
print Dumper \%appid;