sub updatePLZInformationen() {
	# überträgt geänderte PLZ-Daten
	my $data = shift;
    print("Yeehah: $data\n");
    my $plz = SOAP::Lite
    -> service('file:/home/orca/oracle/DataSyncTool/config/SKADataService.wsdl');

    $plz->updatePLZInformationen(
        SOAP::Data->type("xsd:string")->name("clientid" => "ska")->value,
        SOAP::Data->type("xsd:string")->name("securitytoken" => "ska")->value,
        SOAP::Data->type("tns2:PLZInfo")->name("plzinfos")->value(
            \SOAP::Data->value(
                &format_plz_infos($data)
            )
        )    
    );
}
# ------------------------------------------------------------------------------------------------ #
sub format_plz_infos() {
	# formatiert den komplexen Typ "plzinfo"
	my $plz = shift;
    my @plz_info;
    print("Yeehah: $plz\n");
    foreach(@$plz) {
        my $hash = $_;
        
        push(@plz_info,SOAP::Data->name("kurzname")->value($hash->{"kurzname"})->type("xsd:string"));
        push(@plz_info,SOAP::Data->name("plz")->value($hash->{"plz"})->type("xsd:string"));
        push(@plz_info,SOAP::Data->name("stadt")->value($hash->{"stadt"})->type("xsd:string"));
        push(@plz_info,SOAP::Data->name("status")->value($hash->{"status"})->type("xsd:string"));
        push(@plz_info,SOAP::Data->name("typ")->value($hash->{"typ"})->type("xsd:string"));
        push(@plz_info,SOAP::Data->name("zusatz")->value($hash->{"zusatz"})->type("xsd:string"));
    }
    return(@plz_info);

}
# ------------------------------------------------------------------------------------------------ #