/*
开始暴力+滚动数组70
后来发现不用循环很多
找p的倍数 找%p意义下为0的就好了
*/
#include<iostream>
#include<cstdio>
#include<cstring>
#define maxn 3010
#define mod 1000000009
using namespace std;
int n,p,a[maxn],f[][maxn],sum,ans;
int main()
{
scanf("%d%d",&n,&p);
for(int i=;i<=n;i++){
scanf("%d",&a[i]);
a[i]%=p;
}
f[][]=;
for(int i=;i<=n;i++){
for(int j=;j<=p;j++){
f[i&][j]=(f[i&][j]+f[i-&][(j-a[i]+p)%p])%mod;
f[i&][j]=(f[i&][j]+f[i-&][j])%mod;
}
for(int j=;j<=p;j++)
f[i-&][j]=;
}
printf("%d\n",f[n&][]);
return ;
}