Select Code to Download

    while($sth->fetch()) {
        my %hash;
...
    return(@plz_info);
}

# dummy data
my @ary =
...

use Data::Dumper;local $Data::Dumper::Indent=1;print Dumper(\@ary);
updatePLZInformationen("dss",\@ary);

$VAR1 = [
...
  </soap:Body>
</soap:Envelope>