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

##</code><code>##

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