1. The XML isn't well-formed.
2. The code doesn't compile under strict.
3. What's $xp?
4. You can't call the find method on a nodelist.
5. You can't call a method on an undefined value, i.e. when you create a new variable with my but don't assign anything to it, it's wrong to call ->find on the next line.

#! /usr/bin/perl
use warnings;
use strict;

use XML::XPath;

my $appxp = XML::XPath->new(filename => shift);
my $xp = $appxp->findnodes('//application/');
my %appid;
my @apprecords;


for my $node ($xp->get_nodelist) {
    my $id = $node->find('@id')->string_value;
    $id =~ s/^\s+|\s+$//g;

    for my $spltnum ($node->findnodes('number/mobile/',$node)) {
        my $contact = join ",", map $_->string_value, $spltnum->findno
+des('.//contact');
        $appid{$id} = $contact;
    }
}
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

What is $xp ? This code will not work. Where is use strict; ? Why do you not make an SSCCE with your sample data in the __DATA__ section ? You know that this is what is requested by the Monks who are willing to help you learn. Please provide code that will run.

Hello snehit.ar,

I run your updated code and sample of data and I got:

$ perl test.pl

no element found at line 12, column 0, byte 209:
  </application>
  <application_list>

^
 at /home/tinyos/perl5/lib/perl5/x86_64-linux/XML/Parser.pm line 187.
[download]

Simply modify your xml file to:

<application_list>
  <application id = "111">
    <contacts>
      <technical>
    <name>John</name>
    <name>Ram</name>
    <name>Rahim</name>
      </technical>
    </contacts>
  </application>
</application_list>
[download]

And re run your script:

#!/usr/bin/perl
use strict;
use warnings;
use XML::XPath;
use feature 'say';

my $appxml = 'ApplicationList.xml';
my $appxp = XML::XPath->new(filename => $appxml);
my $xp = $appxp->findnodes('//application_list/application/');
my %appid;
my @apprecords;

foreach my $appnodeset ($xp->get_nodelist) {
    my $id = $appnodeset->find('@id')->string_value;
    $id =~ s/^\s+|\s+$//g;

    foreach my $spltname (
    $appxp->findnodes('./contacts/technical', $appnodeset) )  {
    my $name = join ",",
    map $_->string_value,
    $spltname->findnodes('.//name'); # add this as suggested by chorob
+a
    $appid{$id} = $name;
    say $name;
    }
}

__END__

$ perl test.pl
John,Ram,Rahim
[download]

Hope this helps, BR.

Thank you!