Select Code to Download

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

}

$VAR105 = 'S-1-5-21-xxxxxxxx-xxxxxxxxx-xxxxxxxxxxxx-xxxxx';
$VAR106 = {
...
            'sn' => 'surname',
            'distinguishedname' => 'CN=name surname,OU=users,DC=domain
+,DC=tld'
          };

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

Global symbol "$hoh" requires explicit package name