use List::MoreUtils qw(part);
my @array = (1..100);
my $i; my @parts = part { ($i++)/5 } @array;