perl -MData::Dump -e '@hash{(key1,key2)} = ({a=>1, b=>2},{a=>1,b=>2});dd \%hash'
{ key1 => { a => 1, b => 2 }, key2 => { a => 1, b => 2 } }