I tired it, but its not working. Below is what I am doing.
my $xml_string= $result->result; //Store return value of webservices function.
my $tkt= $_->{AttrValue} for grep { $_->{AttrName} eq 'ref_num' } @{$xmls->{Attributes}->{Attribute}};
print $tkt
Not able to capture value.