#! /usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %hash;
my $w = 1;
for $v (0..3){
  %hash = ($w => $v);
  $w++;
}

print Dumper(\%hash);

#! /usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %hash;
my $w = 1;
for $v (0..3){
  $hash{$w} = $v;
  $w++;
}

print Dumper(\%hash);

[$ 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} +]