my $a = { a => { b => { c => ['d'] } }};
print ">",$a->{'a'}->{'b'}->{'c'}->[0],"<\n";
print ">",$a->{'a'}{'b'}{'c'}[0],"<\n";