I am looking for an efficient way to perform the following operation without For loops
For[a = 1, a <= 2, a++, For[b = 1, b <= 2, b++, For[c = 1, c <= 2, c++, Subscript[ EV, Aindex[[a]], Bindex[[b]], Cindex[[c]]] = EVec[[a, b, c]]; ] ] ]
where Aindex (similarly B,C) is a vector of indices relevant to my problem. In other words all I am doing is changing the label of the index. EVec carries all the information that I need, but using array index a,b,c >=1 is not an intuitive way of indexing in my case. Suggestions?