[$ while $dat = $sth -> fetchrow_arrayref $]
    [- $w = 1; -]
    [- %thelabel; -]
             
           [$ foreach $v @$dat $]
               
 [- $thelabel{$w} = $v;         -]

#Bemerkung: Kontrollausgabe --> dabei wird aber nur der Hash mit dem Namen 1 ausgegeben und das nur, wenn dieser gerade zugewiesen wurde

            Wert [+ $w +]: [+ $thelabel{$w}+] ***** [+ $thelabel{1} +]</b><br> 
               
 [- $w++; -] 
           [$ endforeach $]   

[- %thelabel2 = ($thelabel{1}, $thelabel{3}) -]

[$ endwhile $]

[+ $thelabel2{S002} +]