note
choroba
Yes, you can - if you are not using [doc://strict] refs:
<c>
for my $element (qw/var1 var2 var3/) {
%$element = ( a => 'b');
}
print $var1{a};
</c>
The common practice, though, is to use one hash instead, making the elements of the list the keys. You can then shorten the creation to
<c>
my @array = qw(var1 var2 var3);
my %hash;
undef @hash{@array};
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1015336
1015336