for my $entry ($searchresult->entries) {
   my $uid = $entry->get('uid');
   if (!$uid || !UNIVERSAL::isa($uid, 'ARRAY')) {
     print "*** No uid for the following  entry:\n";
     print Dumper(\$entry);
   }
   $uid = ${$uid}[0];
   if (!$uid) {
     print "*** No uid for the following  entry:\n";
     print Dumper(\$entry);
   }
   for (@vars) {
         $uids{$uid}{$_} = '';
         $uids{$uid}{$_} = ${$uid}[0];
   }
}