[$ while $dat = $sth -> fetchrow_arrayref $]
    [- $w = 1; -]
              
            [$ foreach $v @$dat $]
               
 [-var %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} +]