How can I divide a Perl array into smaller arrays?

[sghd]

Is there any Perl equivalent for php's array_chunk()?I'm trying to divide a large array into several smaller ones.Thanks in advance.