$a = {b=>{c=>1}}; # set up ref $b = $a-&...