use strict;
use warnings;
use XML::XPath;
use Data::Dumper;
my @records;

my $xml = 'ApplicationList.xml';
my $xp = XML::XPath->new(filename => $xml);
my $nodeset = $xp->findnodes('/application_list');

foreach my $node ($nodeset->get_nodelist) { 
		my $appid = $xp->find('./application/@id', $node);
		s/^\s+|\s+$//g for $appid;
		
			 push @records, {
				 appid => $appid->string_value,
				 }
	}
	
print Dumper @records;

##</code><code>##

C:\SLB\Dashboard\Perl>perl testperl.pl
$VAR1 = {
          'appid' => '212'
        };

##</code><code>##

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<application_list>
<application id="212" ></application>
<application id="565" ></application>
<application id="654" ></application>
<application id="975" ></application>
</application_list>