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