use strict;
use warnings;
my $a;
$a->{"a"}{"b"}{"c"} = 1;