for my $entry ( $searchresult->entries ) {
	my $aref = $entry->get( 'uid' );
	my $uid = $aref->[0] if $aref;

	if( $uid ) {
		for ( @vars ) {
			$aref = $entry->get( $_ );
			$uids{ $uid }{ $_ } = $aref->[0] if defined $aref;
		}
	} 
	else {
		print "*** No uid for the following  entry:\n";
		print Dumper( \$entry );
	}
}