read
$_ a
for a in $a
{((++b[a]))
}
for((i=101;--i;)){
for((j=i;--j;)){
for((k=j;--k;s+=b[i]*b[j]*b[k])){
:
}
}
}
echo $[s%=10**9+7]