my $result = $ldap->search (
			base    => "dc=example,dc=com",
			scope   => "sub",
			filter  => "mailLocalAddress=$alias\@example.com",
			attrs   =>  $attrs
		);
		if ($result->entries || grep(/\b$alias\b/i, @aliases)) {
			if ($alias =~ /\d$/) {

				$alias++;
				print $alias;
			} elsif