Help for this page
my %h = (1, 2); print bless(\%h), $/; ... __END__ main=HASH(0x99ae63c) main=HASH(0x99ae63c)
for $val (@variables) { my %temp; ... push @array, \%temp; }