//并没有限制sigma(k)<=5000, k^2过不了 ！！！！！！！！
//记串总长为S. 长度不同的串只有O(sqrt(S))个,即最短路的边只有K*sqrt(S)个
//多组数据的最短路复杂度： T*sqrt(1e6/T)*K,T=100时取max,为5e7. 
//记得每轮找最小点的时候不要O(k),虽然过了..... 
//从0到i,走过了哪些边的顺序可以任意换. 因此用每条边更新一遍最短路即可
//字符串前缀匹配的过程用trie模拟即可. 不要用hash+ump(K*K次访问). 其实不用trie,直接ump能过
#include<bits/stdc++.h>
using namespace std;
#define IOS {cin.tie(0);cout.tie(0);ios::sync_with_stdio(0);}
#define rep(i,j,k) for(int i=j;i<=k;++i)
#define per(i,j,k) for(int i=j;i>=k;--i)
#define ll long long
#define vi vector<int>
#define db double
const ll mod=1231453023109121,INF=1e18;
const int N=5005,bs=131,M=1e6+6;
void Min(ll &x,ll y){x=min(x,y);}
char s[M]; string S[M];
ll l[N],dis[N],dp[N][N],ans[N];
int nxt[M][26],cnt=1; ll res[M];
void slv(){
    int n,k;cin>>n>>k;
    rep(i,0,k)l[i]=INF;
    rep(i,1,n){
        cin>>S[i]; int len=S[i].length();
        Min(l[len%k],k+len);
    }
    dis[0]=0; rep(i,1,k-1)dis[i]=INF;
    rep(i,0,k-1){
        if(l[i]==INF)continue;
        int g=__gcd(i,k);
        rep(x,0,g-1){
            for(int j=0;j<k/g*2;j++){
                Min(dis[(x+(j+1)*i)%k], dis[(x+j*i)%k]+l[i]);
            }
        }
    }
    rep(i,0,1e6+2)res[i]=INF;
    rep(i,1,n){
        int now=1,len=S[i].size();
        rep(j,0,len-1){
            int c=S[i][j]-'a';
            if(!nxt[now][c])nxt[now][c]=++cnt;
            now=nxt[now][c];
            int le=len-1-j,x=((-le)%k+k)%k;
            if(dis[x]<INF)Min(res[now],(dis[x]+le)/k+1);
        }
    }
    cin>>s+1; int m=strlen(s+1); //下次用n吧..
    rep(l,1,m)rep(r,l,m)dp[l][r]=INF;
    rep(l,1,m){
        int now=1;
        rep(r,l,m){
            now=nxt[now][s[r]-'a'];
            if(!now)break;
            dp[l][r]=res[now];
        }
    }
    rep(i,0,cnt)memset(nxt[i],0,sizeof nxt[i]); cnt=1;
    rep(i,1,m){
        ans[i]=dp[1][i];
        rep(j,1,i-1)Min(ans[i], ans[j]+dp[j+1][i]);
    }
    cout<<(ans[m]>=INF?-1:ans[m])<<'\n';
}
signed main(){
    IOS
    int T;cin>>T;
    while(T--)slv();
}
/*
1
2 3
defgh
abc
abcde
*/