#Hash of hashes.
#Printing single element from hash of hashes.
my %kkmk = (
‘kk’ => { “name” => “Kedar” ,
“surname” => “Kulkarni”,
“ID” => 1, },
‘mk’ => { “name” => “Mandar” ,
“surname” => “Kulkarni”,
“ID” => 2, }
);
print $kkmk{‘mk’}{‘surname’} , “\n”;
print $kkmk{‘kk’}{‘name’} , “\n”;