Select Code to Download

#!/usr/bin/env perl    

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

$VAR1 = {
          'a' => {}
        };