# Mit Hash
my %label;
for my $i ( 0 .. 3 ) {
  $label{'bla'.$i} = 'bla';
}