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