splice can be used to extract elements from an array.

my @myArray = (1..100);

my @myMainArray;
while (@myArray) {
   push @myMainArray, [ splice(@myArray, 0, 5) ];
}

foreach my $record (@myMainArray) {
   print(join(', ', @$record), "\n");
}
[download]

Update: Fixed typo bug in code. Thanks ww.