use strict;
use warnings;

use XML::LibXML qw( );

my $xml = <<'__EOI__';
<?xml version = "1.0"?>
<response>
  <custid>101010101</custid>
  <status>success</status>
  <responsecode>11</responsecode>
  <kf></kf>
  <cn>1111222233334444555</cn>
  <neta>7.00</neta>
  <prid>X111111111111111</prid>
  <ano>22222222</ano>
  <trxid>33333333</trxid>
  <description>Transfer Completed</description>
</response>
__EOI__

my $root = XML::LibXML->new->parse_string($xml)->documentElement;
my %data = map { $_->nodeName => $_->textContent }
   $root->findnodes('/*/*');