Select Code to Download

    while($sth->fetch()) {
        my %hash;
...
    }
    $sth->finish();
              $dss->updatePLZInformationen(@ary);

sub updatePLZInformationen() {
    my @data = shift;
...
    return(@plz_info);
}
# --------------------------------------------------------------------
+---------------------------- #

?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope 
...
</updatePLZInformationen>
</soap:Body>
</soap:Envelope>