use Data::Dumper;

use strict;
use warnings;

my $h = {};
$h->{"a"}{"b"}{"c"} = 1;
print Dumper($h);