# dummy data
my @ary =
    map {
        my $t = $_;
        scalar {
            map {$_ => "$t$_"}
            qw! kurzname plz stadt status typ zusatz !
        };
    } 1 .. 3;

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