my @keys = split /
/, $erstesTD; my @values = split /
/, $zweitesTD; my %kv; @kv{@keys} = @values;