r convert matrix to list of column vectors

# Sample matrix
mat <- matrix(1:12, nrow = 3)

# Convert matrix to list of column vectors
mat_list <- lapply(seq_len(ncol(mat)), function(i) mat[, i])