#!/usr/bin/perl -w 

use XML::XPath;
use Data::Dumper;

$file = "test.xml";
$xp = XML::XPath->new(filename => $file);

@nodes = $xp->findnodes("/xdoc/MsgSigs/MsgSig");

foreach (@nodes) {
   $key = $_->findvalue('Key');
   $descr = $_->findvalue('Description');
   $text = $descr . "(" . $key . ")";

   # A setValue would be awesome right about now or an 
   #  appendtext
   
   $_->
   print $_->findvalue('Description'), "\n";
}

#print out to xml file