#!perl
use Data::Dumper;
my %hash = ( a=>{} );
if (  !exists $hash{'a'}{'b'}{'c'} ){};
print Dumper \%hash;