my $x = {};
$x->{1}{2}{3} = 123;
print Dumper $x;