my %TEST2 = ();
 $TEST2{HOHOHO} = "LALALAL";

my %TEST = ();
 $TEST{"ASDF"} = \%TEST2;

my %ASDF = ();
 $ASDF{"ABC"} = \%TEST;

print Dumper (\%ASDF);
print "DEBUG AGAIN $ASDF{ABC}{ASDF}\n";