c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my %hash;
 print 'yes' if exists $hash{'www'}{'xxx'}{'yyy'}{'zzz'};
 dd \%hash;
"
{ www => { xxx => { yyy => {} } } }