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