Select Code to Download

my $xml = 'ApplicationList.xml';
my $xp = XML::XPath->new(filename => $xml);
...
   
}
print Dumper \%appid;

$VAR1 = {
          '1103' => {
...
                      'dddd' => undef
                    }
        };

$VAR1 = {
          '1103' => 'cccc',
...
          '957' => 'aaaa', 
          '1503' => 'dddd' 
        };