#include <cstdio>
#include <cstring>
#include <iostream>
#include <string>
#include <cmath>
#include <bitset>
#include <vector>
#include <map>
#include <set>
#include <queue>
#include <deque>
#include <algorithm>
#include <complex>
#include <unordered_map>
#include <unordered_set>
#include <random>
#include <cassert>
#include <fstream>
#include <utility>
#include <functional>
#include <time.h>
#include <stack>
#include <array>
#include <list>
#include <atcoder/all>
#define popcount __builtin_popcount
using namespace std;
using namespace atcoder;
typedef long long ll;
typedef pair<int, int> P;
using mint=modint1000000007;
mint dp[2][41][40040], dps[2][41][40040];
mint f[2000010], invf[2000010];
void fac(int n){
    f[0]=1;
    for(ll i=1; i<=n; i++) f[i]=f[i-1]*i;
    invf[n]=f[n].inv();
    for(ll i=n-1; i>=0; i--) invf[i]=invf[i+1]*(i+1);
}
mint comb(int x, int y){
    if(!(0<=y && y<=x)) return 0;
    return f[x]*invf[y]*invf[x-y];
}
int main()
{
    int n, mp, mq, l;
    cin>>n>>mp>>mq>>l;
    int s[44];
    for(int i=0; i<n; i++) cin>>s[i];
    dp[0][0][0]=1;
    for(int i=1; i<=mq+1; i++) dps[0][0][i]=1;
    for(int i=0; i<n; i++){
        for(int j=0; j<=i+1; j++){
            for(int k=0; k<=mq; k++){
                dp[(i+1)&1][j][k]=0;
            }
        }
        for(int j=0; j<=i; j++){
            for(int k=0; k<=mq; k++){
                dp[(i+1)&1][j][k]+=dp[i&1][j][k];
                dp[(i+1)&1][j+1][k]+=dps[i&1][j][k]-dps[i&1][j][max(0, k-s[i])];
            }
        }
        for(int j=0; j<=i+1; j++){
            dps[(i+1)&1][j][0]=0;
            for(int k=0; k<=mq; k++){
                dps[(i+1)&1][j][k+1]=dps[(i+1)&1][j][k]+dp[(i+1)&1][j][k];
            }
        }
    }
    fac(100010);
    mint ans=0;
    for(int i=0; i<=mq; i++){
        for(int j=0; j<=n; j++){
            if(l*j-i<0) continue;
            ans+=dp[n&1][j][i]*comb(mp-l*j+i+n-1, n-1);
        }
    }
    cout<<ans.val()<<endl;
    return 0;
}