my @array = qw(var1 var2 var3);

foreach my $element (@array){
     #- I want to create my %var1, my %var2, my %var3 
     #- Is it possible?
}