for my $element (qw/var1 var2 var3/) {
    %$element = ( a => 'b');
}
print $var1{a};