for my $e ( $searchresult->entries ) {
    my ($r, $uid) = ($e->get('uid'),  $r ? $r->[0] : ());
	
	print "*** No uid for the following  entry:\n" , Dumper \$e
	and next unless $uid;
		
	($r, $uids{$uid}{$_}) = ($e->get($_), $r ? $r->[0] : '' ) for @vars;
}