Can't use an undefined value as an ARRAY reference at ldap.test2.pl line xx.

##</code><code>##

use strict;
use warnings;
use Net::LDAP;
use Net::LDAP::Util qw / ldap_error_text /;
use Net::LDAP::Schema;
use Net::LDAP::Entry;
use Net::LDAP::Search;
use Data::Dumper;

## snip

my @vars = qw( cn mail );  ## this will have about 30 fields eventually
my %uids;

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