my %params; for(@Zeilen) { my($pre,$param,$value)=split_line($_); push(@{$params{$pre}->{$param}},$value); }