#include<bits/stdc++.h>
using namespace std;
typedef long long LL;
const int N=1e5+5,M=22;
int n,m,K,fa[N],d[N],w[N];
struct Edge{
    int v,nxt;
}e[N];
int h[N],tot1;
void addEdge(int u,int v)
{
    tot1++;
    e[tot1].v=v;e[tot1].nxt=h[u];
    h[u]=tot1;
}
struct Seg{
    int l,r;
    LL val,mx,lz;
}t[N*18];
int rt[N],tot;
void update(int p)
{
    t[p].val=max(t[t[p].l].val,t[t[p].r].val);
}
void pushlz(int p,LL z)
{
    t[p].mx+=z;
    t[p].lz+=z;
    t[p].val+=z;
}
void pushmx(int p,LL z)
{
    t[p].mx=max(t[p].mx,z);
    t[p].val=max(t[p].val,z);
}
void lzdown(int p)
{
    if(t[p].l)
    {
        pushlz(t[p].l,t[p].lz);
        pushmx(t[p].l,t[p].mx);
    }
    if(t[p].r)
    {
        pushlz(t[p].r,t[p].lz);
        pushmx(t[p].r,t[p].mx);
    }
    t[p].mx=0;t[p].lz=0;
}
LL val;
void insert(int &p,int l,int r,int x,LL y)
{
    if(p==0)
    {
        p=++tot;
    }
//    cout<<p<<' '<<l<<' '<<r<<endl;
    if(l==r)
    {
        t[p].val+=y;
        val=t[p].val;
        return ;
    }
    lzdown(p);
    int mid=l+r>>1;
    if(x<=mid)
    {
        insert(t[p].l,l,mid,x,y);
    }else{
        insert(t[p].r,mid+1,r,x,y);
    }
    update(p);
}
void change(int p,int l,int r,int x,int y,LL z)
{
    if(x<=l&&r<=y)
    {
        if(l==r)
        {
            pushmx(p,z);
            return ;
        }
        lzdown(p);
        int mid=l+r>>1;
        if(t[p].l==0)
        {
            change(t[p].r,mid+1,r,x,y,z);
        }else if(t[p].r==0){
            change(t[p].l,l,mid,x,y,z);
        }else if(t[t[p].l].val<z)
        {
            pushmx(t[p].l,z);
            change(t[p].r,mid+1,r,x,y,z);
        }else{
            change(t[p].l,l,mid,x,y,z);
        }
        return ;
    }
    lzdown(p);
    int mid=l+r>>1;
    if(x<=mid&&t[p].l)
    {
        change(t[p].l,l,mid,x,y,z);
    }
    if(mid+1<=y&&t[p].r)
    {
        change(t[p].r,mid+1,r,x,y,z);
    }
    update(p);
}
void merge(int &x,int y,int l,int r,LL vx,LL vy)
{
    if(x==0)
    {
        x=y;pushlz(x,vx);
    //    cout<<x<<'&'<<t[x].val<<' '<<l<<' '<<r<<endl;
        return ;
    }
    if(y==0)
    {
        pushlz(x,vy);
    //    cout<<x<<'&'<<t[x].val<<' '<<l<<' '<<r<<endl;
        return ;
    }
    if(l==r)
    {
        t[x].val=max(vx,t[x].val)+max(vy,t[y].val);
        return ;
    }
    lzdown(x);
    lzdown(y);
    int mid=l+r>>1;
    merge(t[x].l,t[y].l,l,mid,vx,vy);
    merge(t[x].r,t[y].r,mid+1,r,max(vx,t[t[x].l].val),max(vy,t[t[y].l].val));
    update(x);
//    cout<<x<<'^'<<t[x].val<<endl;
}
LL query(int p,int l,int r)
{
    if(l==r)
    {
        return t[p].val;
    }
    lzdown(p);
    int mid=l+r>>1;
    if(t[p].r)
    {
        return query(t[p].r,mid+1,r);
    }else{
        return query(t[p].l,l,mid);
    }
}
/*
void dfs0(int u)
{
    sz[u]=1;son[u]=0;
    for(int i=h[u];i;i=e[i].nxt)
    {
        int v=e[i].v;
        if(v==fa[u])
        {
            continue;
        }
        fa[v]=u;
        dfs0(v);
        sz[u]+=sz[v];
        if(sz[v]>sz[son[u]])
        {
            son[u]=v;
        }
    }
}
*/
void dfs(int u)
{
//    cout<<u<<"b\n";
    for(int i=h[u];i;i=e[i].nxt)
    {
        int v=e[i].v;
        dfs(v);
    /*    LL mx=0;
        for(int j=1;j<=K;j++)
        {
            mx=max(mx,f[v][j]);
            f[u][j]+=mx;
        }*/
        merge(rt[u],rt[v],1,K,(LL)0,(LL)0);
    }
//    cout<<u<<"e\n";
    if(w[u]==0)
    {
        return ;
    }
    insert(rt[u],1,K,d[u],w[u]);
    cout<<u<<' '<<t[rt[u]].val<<endl;
    change(rt[u],1,K,d[u],K,val);
    cout<<u<<' '<<t[rt[u]].val<<endl;
}
int main()
{
    int x;
    scanf("%d%d%d",&n,&m,&K);
    for(int i=2;i<=n;i++)
    {
        scanf("%d",&fa[i]);
        addEdge(fa[i],i);
    }
    for(int i=1;i<=m;i++)
    {
        scanf("%d",&x);
        scanf("%d%d",&d[x],&w[x]);
    }
    dfs(1);
    printf("%lld\n",t[rt[1]].val);
    return 0;
}