# append data foreach my$key (keys %{$data_to_append}) { # check whether we can append the data next if !exists($full_data->{$key}); # append data # HIER ein push() einfuegen push(@{$full_data->{$key}->[0]}, @{shift(@{$data_to_append->{$key}})}); push(@{$full_data->{$key}}, @{$data_to_append->{$key}}); }