sub start
{
	@tempArray=0;
	#our $filename=shift;
	our $parser = new XML::DOM::Parser;
	our $doc = $parser->parsefile("1597976.doc001.out.xml") or die "Unable to parse document";
	our $root = $doc->getDocumentElement(); 
	valueIntoArray($root);
}	

sub valueIntoArray #Placing values alone into array 
{
    my ($rt)= @_;
    foreach my $node ( $rt->getChildNodes())         
    {
		if (($node->getNodeType() == TEXT_NODE ) && ($node->getData()=~ /\S/s))          
        {
            #push(@tempArray,lc($node->getData()));
			print $node->getData()."\n";
        }
		valueIntoArray($node);
	}
	#return sort(@tempArray);
}

##</code><code>##

<Person>
<Address>
<name>xxx</name>
<mobile>xxx</mobile>
</Address>
<Education>
<Degree>xxx</Degree>
<Major>xxx</Major>
</Education>
</Person>