# VORSICHT: Diese Code ist nicht getestet
# ... nach dem search:
my %email_by_cn;
foreach my $entry (@entries) {
 my $cn     = $entry->get_value('cn');
 my $mail   = $entry->get_value('mail'); 
 $cn=lc($cn);  # in kleinbuchstaben wandeln - falls sich das mal unterscheidet
 $email_by_cn{$cn}=$mail;
}