my %a : shared = (); $a{foo} = {}; $a{bar} = 42; #### print {}, "\n"; print {}, "\n";