#!/usr/bin/env perl    

use strict;
use warnings;
use 5.010;

no autovivification;

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