sub get_user_by_mail {
  my ($entries, $mail) = @_;
  my @user = grep { $_->get_value('mail') eq $mail } @$entries;
  return $user[0];
}

my $Manager = get_user_by_mail(\@entries, $Manager_mail);