c:\Temp>perl nonlitews.pl $VAR1 = { 'result' => { 'result' => [ { 'qualifiers' => '', 'givenNameCultureSetInt' => '2', 'alternate' => 0, 'givenNameCultureInt' => 1, 'scriptTypeInt' => 0, 'confidence' => 98, 'surnameCultureInt' => 1, 'surnameCultureSetInt' => '2', 'titles' => '', 'categoriesInt' => 1, 'nameCultureSetInt' => '2', 'givenName' => 'JOHN', 'originalGivenName' => '', 'name' => 'JOHN SMITH', 'originalSurname' => 'John Smith', 'surname' => 'SMITH', 'nameCultureInt' => 1 } ] } }; ------------------------- test1: test2: test3: test4: test5: test6: test7: test8: ------------------------- test9: pete1: HASH(0x4cd2a98) ------------------------- Request: POST http://iivmware:14500/NameWorksScoring/services/ScoringWebServiceSEIPort HTTP/1.1 User-Agent: libwww-perl/6.08 Content-Length: 374 Content-Type: text/xml; charset=utf-8 SOAPAction: "" X-LWP-Version: 6.08 X-XML-Compile-Cache-Version: 1.04 X-XML-Compile-SOAP-Version: 3.15 X-XML-Compile-Version: 1.52 X-XML-LibXML-Version: 2.0124 John Smith65 Response: HTTP/1.1 200 OK Date: Fri, 18 Mar 2016 18:27:41 GMT Server: WebSphere Application Server/8.0 Content-Language: en-US Content-Length: 946 Content-Type: text/xml; charset=utf-8 Client-Date: Fri, 18 Mar 2016 18:27:45 GMT Client-Peer: 192.168.208.132:14500 Client-Response-Num: 1 X-Powered-By: Servlet/3.0 1JOHN SMITH< surname>SMITHJOHNJohn Smith0111222980 c:\Temp>