$soap = SOAP::Lite-> service('http://10.230.0.22:7782/services/CBSInterfaceAccountMgrService?wsdl');

@data = SOAP::Data->name("RequestHeader" =>
  \SOAP::Data->value(
   SOAP::Data->name("CommandId" => 'Payment'),
   SOAP::Data->name("Version" => '1'),
   SOAP::Data->name("TransactionId" => ''),
   SOAP::Data->name("SequenceId" => '1'),
   SOAP::Data->name("RequestType" => 'Event'),
   SOAP::Data->name("SerialNo" => 'USSD_00000001'),
   )
);
push (@data,
   SOAP::Data->name("PaymentRequest" =>
  \SOAP::Data->value(
   SOAP::Data->name("SubscriberNo" => '123'),
   SOAP::Data->name("PaymentAmt" => 100),
   SOAP::Data->name("PaymentMode" => 1001),
   )
));


my $result = $soap->Payment(@data);