 $foo_bar = { foo => 'bar'}; $arj = [qw(a b c)];{obj=>$foo_bar, obj2=>$foo_bar, arj=> $arj,nested => { obj => $foo_bar, arj => $arj } };