sub do_sth { my $db_query_counter = 0; ### necessary to differenciate between the first part of the sql query and every following OR my @missing_query_part = (); foreach my $string (@_) { # print "\n"; # print "(foreach) sub input: ${string}"; chomp(${string}); ${string}=~ s/\"//g; # Removes all my @values = split(/\s*,\s*/, ${string}); push our @chunk_data_array, [@values]; ## [] referenz ### (.....) }