#!/usr/bin/perl -w

use strict;

my $test = ();
my $pwet1 = "test1";


for (my $i = 1; $i < 10; $i++)
{
  $test->{$i}->{"PWET"}->{"POULPE"} = $pwet1.$i;
}
print "test";