my $href;
$href->{smith}{john}{eyecolor} = 'blue';

##</code><code>##

my $href;
my $color = $href->{smith}{john}{eyecolor};

##</code><code>##

my $href;
if (exists $href->{smith}{john}{eyecolor}) {
   # do something
}

##</code><code>##

my $aref = undef;
my $a = $$aref[0];

##</code><code>##

my $aref = undef;
my @a = map {$_} @$aref;