#include<iostream>
#include<cstdio>
#include<cstring>
#include<algorithm>
#include<string>
#include<vector>
#include <ctime>
#include<queue>
#include<set>
#include<map>
#include<stack>
#include<iomanip>
#include<cmath>
#define mst(ss,b) memset((ss),(b),sizeof(ss))
#define maxn 0x3f3f3f3f
#define MAX 1000100
typedef long long ll;
typedef unsigned long long ull;
#define INF 0x3f3f3f3f
using namespace std;
int n,m,b,mod;
ll dp[550][550];/// 前i行出现j个bug
int a[550];
int main(){
scanf("%d%d%d%d",&n,&m,&b,&mod);
for(int i=1;i<=n;i++) scanf("%d",&a[i]);
dp[0][0]=1;
for(int i=1;i<=n;i++){
for(int j=1;j<=m;j++){
for(int k=a[i];k<=b;k++){
dp[j][k]=(dp[j][k]+dp[j-1][k-a[i]])%mod;
}
}
}
ll ans=0;
for(int i=0;i<=b;i++) {
ans=(ans+dp[m][i])%mod;
}
cout<<ans<<endl;
return 0;
}