Search positions of elements in array using two lists

Question

I have an array like this:

arr1<-array(1:5,dim=c(3,4,2))

And two lists like these:

li1<-list(1,2)
 
li2<-list(list(c(