my @array;
my %hash;
for (...) {
   %hash = ();
   # ...
   push @array, { %hash };
}