This worked out just fine for me, it's your original code:

106    my $status;
107    for $status (keys %Status) {
108        for (keys %{ $Status{$status} }) {
109            print $Status{$status}{$_}{'Name'}, br;
110        }
111    }
[download]

I'm curious how you declared your HoHoH. I took your example above and declared it like this:

%h = (
          '1' => {
                   '1' => {
                            'EMail' => 'norbert@thnwb.com',
                            'Name' => 'Norbert Bodkin'
                          },
                   '5' => {
                            'EMail' => 'sue@thnwb.com',
                            'Name' => 'Sue Soup'
                          }
                 },
          '2' => {
                   '3' => {
                            'EMail' => 'max@thnwb.com',
                            'Name' => 'Max Grappler'
                          }
                 }
        );
[download]

*note the parentheses at the outermost level, not curlies.

I don't know if this helps, but it seems like you're super-close to getting it.

~CS