I have a list a two data frames

I´ve done this process twice. How can I do 6 times with a loop?

PimaIndiansDiabetesfilt <- subset(PimaIndiansDiabetes, select=c(a[[1]]))
PimaIndiansDiabetesposfilt <- subset(PimaIndiansDiabetespos, select=c(a[[1]]))
EUCLIDEAN6filt <- dist_many_many(PimaIndiansDiabetesposfilt, PimaIndiansDiabetesfilt,
method = “euclidean”, testNA = F)

PimaIndiansDiabetesfilt2 <- subset(PimaIndiansDiabetes, select=c(a[[2]]))
PimaIndiansDiabetesposfilt2 <- subset(PimaIndiansDiabetespos, select=c(a[[2]]))
EUCLIDEAN6filt2 <- dist_many_many(PimaIndiansDiabetesposfilt2, PimaIndiansDiabetesfilt2,
method = “euclidean”, testNA = F)