$ perl -MData::Dump -e '@{$x[0][0]}{qw/a b/} = qw/c d/; dd \@x'
[[{ a => "c", b => "d" }]]