res.list = lapply(1:50,function(x) get(paste0("a",x)))
as.list(paste0('a',1:50))
as.list(get(paste0("a",1:50)))