How to keep list's element's names with lapply(seq_along())?

I would like to keep my dataframes' names after each lapply sequence with this code. The resulting list (list2) have all my dataframes names disappeared. How do I improve it? Thank you.

list2<-lapply(seq_along(list1), function(i, USE.NAMES=T){
  matrix_a%*%list1[[i]]
})