alguém sabe como selecionar 2 ou mais sub-matrizes de uma matriz maior de forma direta sem usar um loop????

CMR:

mat <- matrix(1:25,nc=5)

lz = c(2,5)

k <- numeric(0) 

for(j in 1:2) print( k <- mat[z[j]:lz[j],z[j]:lz[j]] ) # Gostaria de chegar a este resultado sem o loop 

Estou tentando evitar este loop, pois, ele esta dentro de while.

Att.

Tiago.