Help for this page

Select Code to Download


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