Select Code to Download

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