#The Below code discusses the handling of Complex data using Hash of Hashes.
#!/usr/bin/perl
use Data::Dumper;
$hohref = {};
$hohref->{"h1"}={};
$hohref->{"names"}={"name1"=>"Chandra"};
$epout = rand(9); 
$tcid = substr($epout,4,9);
$hohref->{$tcid}={"TCDesc" => "Login Test", "TCRun"=>"Yes","TCResult"=>"Pass"};
%tch = %$hohref;
@k = keys(%tch);
@v = values(%tch);
print "The keys of *******  @k","\n";
print "The values of ******* @v ","\n";

#Dereferencing Hash of Hashes using foreach loops

%och = %$hohref;

foreach(keys(%och)){
        print "The key outer hash \t".$_."\t The value outer hash ".$$och{$_};
	print "\n";
        if(ref($och{$_}) eq "HASH"){
              %inner = %$och->{$_};
	      foreach(keys(%inner)){
                print "The key is ".$_." ===>"."The value is $inner{$_}";
                print "\n";
              }
        }
}

#Dereferencing using Dumper function is working
print Dumper($hohref),"\n";