perl -e '%x = (1=>{3=>4}); print $x{1}->{3}'
perl -e '%x = (1=>{3=>4}); print $x{1}{3}'
perl -e '%x = (1=>{3=>4}); $r= $x{1}; print $r{3}'