while (1) { my %h; $h{a} = \%h; }