my $hr1 = { foo=>'bar' };
my $hr2 = { quz=>'baz' };
my @data;
push @data, %{$hr1};
push @data, %{$hr2};
use Data::Dump;
dd @data;  # ("foo", "bar", "quz", "baz")