%HashOfHashes = (
languages=>{ windows => "PowerShell",
aix => "Perl"
},
systems => { Remotepc1 => "Win32",
Remotepc2 => "Win64",
Remotepc3 => "Aix"
},
viewdir =>{ Win32 => "dir",
Aix => "ls",
Win64 => "dir"
},
);
print "Here is my list of hashes in HashOfHashes:\n--------------------\n";
foreach $keyy(keys %HashOfHashes){
print "$keyy\n";
}
print "\nIm accesing to the first hash, to see what lenguages are available for my windows\n------------------\n";
print $HashOfHashes{languages}{windows};