Select Code to Download

for my $e ( $searchresult->entries ) {
    my ($r, $uid) = ($e->get('uid'),  $r ? $r->[0] : ());
...
        
    ($r, $uids{$uid}{$_}) = ($e->get($_), $r ? $r->[0] : '' ) for @var
+s;
}

for my $entry ( $searchresult->entries ) {
    my ( $uid ) = $entry->get( 'uid' );
...
        
    ( $uids{$uid}{$_} ) = $entry->get($_) for @vars;
}