[- @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' -] [- $fdat{null1} = 0 -] [- $fdat{null2} = '0' -] [- delete $fdat{null1} ; delete $fdat{null2} -]
[+$regs[$row]{Id}+]

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

[+ $ks[$i=$row] +][+ $idat{$ks[$i] || ''} +]
[- @ksall = qw{Wert1 Wert2 Wert3 Wert4 Wert5 Wert6 Wert7 Wert8} ; -] [$ foreach $i (1,5,2,6) $] [$endforeach$] [$ foreach $i (1,5,2,6) $] [$endforeach$] [- @order = (1,5,2,6) -]
[- $fdat{ta} = 'blabla' -]
[$ 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] || ''} +]
[- @empty = () -]