use strict;
use warnings;

my @myArray = (1..100);
my @myMainArray = ();

my $i = 0;
while ($i < scalar @myArray){
    push (@myMainArray, [@myArray[$i .. $i+4]]);
    $i += 5;
}