use Data::Dumper;

my %hash = ('a'=>1, 'b'=>2, 'b'=>3);
my @array = ('c','d','e','f');

my $data = {%hash};
$data->{'array'} = [@array];
$data->{'array'}[4] = {%hash};
$data->{'array'}[4]{'foobar'} = [@array];

print Data::Dumper->Dump([$data], ['data']);