Select Code to Download

use strict;
use warnings;
use Data::Dump qw/dd/;
...
dd $hash{a}->$get(qw/x x x/); # no autovivification
#dd $hash{a}{x}{x}{x};        # autovivification
dd \%hash;

{ a => { b => { c => 666 } } }
666
undef
{ a => { b => { c => 666 } } }

  $name = $user[$idx]  -> {'name'};           # may create a hash
  $name = $user[$idx]  -> $safe -> {'name'};  # leaves @user alone
  $name = $person      -> name;               # chokes on undef
  $name = $person      -> $safe -> name;      # passes undef on