while($sth->fetch()) { # zusatz scheint NULL zu sein... if(!defined($zusatz)) { $zusatz = ""; } print("$id => $plz => $stadt => $kurzname => $zusatz => $status => $typ\n"); # Hash zusammenbasteln my %hash; $hash{"kurzname"} = $kurzname; $hash{"plz"} = $plz; $hash{"stadt"} = $stadt; $hash{"status"} = $status; $hash{"typ"} = $typ; $hash{"zusatz"} = $zusatz; push(@ary,\%hash); } $sth->finish(); # evtl. Fehlerbehandlung my $laenge = @ary; if($laenge > 0) { eval { print("DataSyncTool: @ary\n"); $dss->updatePLZInformationen(\@ary); # $dss = instance of data_service.pm }; if($@) { # Fehler ausgeben chop($@); if($debug == 1) { &debug_out("updatePLZInformationen => FEHLER:\n$@\n") }; $err_txt .= "updatePLZInformationen => FEHLER:\n$@\n"; } }