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;
}

##</code><code>##

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