[- @regs = () ; $regs[0]{Id} = 'Pfalz' ; $regs[1]{Id} = 'Rheinhessen' ; @kats = () ; $kats[0]{Id} = 'Kultur' ; $kats[1]{Id} = 'Sport' ; $kats[2]{Id} = 'Veranstaltungen' ; -]

 

[- $fdat{dec} = 'a & b' -]
[+$regs[$row]{Id}+]

[+$kats[$row]{Id}+]

ks = [+ do { @ks = sort keys %idat ; "@ks" } +]

[+ $ks[$i=$row] +][+ $idat{$ks[$i] || ''} +]
[$ foreach $i (1,5,2,6) $] [$endforeach$] [$ foreach $i (5,2,6,1) $]

i = [+ $i +] fdat{feld5} [+ $fdat{feld5} +]

[$endforeach$] ks = [+ do { @ks = sort keys %idat ; "@ks" } +]

[+ $ks[$i=$row] +][+ $idat{$ks[$i] || ''} +]