my $separator = "x"; my $artikel_charge = $tc_artikel_id . $separator, $tc_charge_id; push @{ $tc_artikel { $artikel_charge } }, { artikel_nr => $tc_artikel_nr, bestand => $tc_chargenbestand, charge => $tc_charge, };