<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
               xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
               xmlns:xsd="http://www.w3.org/2001/XMLSchema"
               soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
               xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">

  <soap:Body>
    <get_form xmlns="http://dev.iban-bic.com/Riban/soap2/?wsdl">
      <params soapenc:arrayType="xsd:anyType[2]" xsi:type="tns:Map">
        <item>
          <key xsi:type="xsd:string">country</key>
          <value xsi:type="xsd:string">NL</value>
        </item>
        <item>
          <key xsi:type="xsd:string">step</key>
          <value xsi:type="xsd:string">1</value>
        </item>
      </params>
      <user xsi:type="xsd:string">name</user>
      <password xsi:type="xsd:string">pass</password>
    </get_form>
  </soap:Body>
</soap:Envelope>

#!/usr/bin/perl
use strict;
use warnings;

sub BEGIN
{ unshift(@INC,'.'); }

use Data::Dumper;
use SOAP::Lite +trace => 'all';


my $soap = SOAP::Lite ->uri( 'http://dev.iban-bic.com/Riban/soap2/?wsdl' );
$soap->proxy( 'http://bla.home:8888' );
#$soap->proxy('http://dev.iban-bic.com/Riban/soap2/');

my %data_to_send_in_soap_map = (
  'country' => 'NL',
  'step' => '1',
);

my $user='name';
my $pass='pass';

my (@soap_map,@params);
foreach my $key (keys %data_to_send_in_soap_map) {
  push @soap_map,
    \SOAP::Data->value(
      SOAP::Data->name('key'   => $key                           )->type('xsd:string'),
      SOAP::Data->name('value' => $data_to_send_in_soap_map{$key})->type('xsd:string'),
    );
}

$soap->get_form(
  SOAP::Data->name('params'   => \@soap_map)->type('tns:Map'),
  SOAP::Data->name('user'     => $user     )->type('xsd:string'),
  SOAP::Data->name('password' => $pass     )->type('xsd:string'),
);