my %h = (1, 2);
print bless(\%h), $/;
%h = undef;
print bless(\%h), $/;
__END__
main=HASH(0x99ae63c)
main=HASH(0x99ae63c)

##</code><code>##

for $val (@variables) {
   my %temp;
   # work with %temp here;

   push @array, \%temp;
}