%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};