while ( my ( $key, $value ) = each $hoh{$name} ) {
 do stuff;

}

##</code><code>##

$VAR105 = 'S-1-5-21-xxxxxxxx-xxxxxxxxx-xxxxxxxxxxxx-xxxxx';
$VAR106 = {
            'mail' => 'user@domain.tld',
            'objectsid' => 'S-1-5-21-xxxxxxxx-xxxxxxxxx-xxxxxxxxxxxx-xxxx',
            'proxyaddresses' => [
                                  'X400:c=TLD;a= ;p=Domain;o=Exchange;s=name;g=fn;',
                                  'SMTP:name@domain.tld',
                                  'smtp:name@domain.tld'
                                ],
            'givenname' => 'name',
            'displayname' => 'name surname',
            'sn' => 'surname',
            'distinguishedname' => 'CN=name surname,OU=users,DC=domain,DC=tld'
          };

##</code><code>##

while ( my ( $key, $value ) = each %{ $hoh{$sid} } ) {
...
}

##</code><code>##

Global symbol "$hoh" requires explicit package name