foreach my $key (keys %hash)
{
    # -----[ Here is how you read a Hash of Hashes ]---------------
    foreach my $subkey (keys %{$hash{$key}})      # Was:  my $array = $hash{$key};
    {
        print "key = '$key'   subkey = '$subkey'\n";
    }
}