my @myArray = (1..100);

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

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