Select Code to Download

use strict;
use warnings;
...
my $len = 3;
my @stack = map{$_%$len?():[grep{$_}@array[$_..$_+$len-1]]} 0..@array-
+1;
print Dumper \@stack;