$ perl -le " $foo{bar}{baz} = 6; print $foo{bar}->{baz}; "
6