How to iterate through Hash (of Hashes) in Perl?

Question

I have Hash where values of keys are other Hashes.

Example: {\'key\' => {\'key2\' => {\'key3\' => \'value\'}}}

How can I iterate throug

Answer 1

foreach my $keyname (keys(%foo) {
  my $subhash = $foo{$keyname};
  # stuff with $subhash as the value at $keyname
}