my %lookup; 
while (<$LDIF>) {
   my ($dn)    = /^dn: (.*)$/m;
   my ($samACCOUNTNAME) = /^samACCOUNTNAME: (.*)$/m;
   $lookup{$dn} = $samACCOUNTNAME
    if defined $dn and defined $samACCOUNTNAME; # only if both are found
}

##</code><code>##

if($lookup{$current_dn}) { ... }

##</code><code>##

    push @{$lookup{$dn}}, $samACCOUNTNAME;

##</code><code>##

$lookup{$current_dn}[0]