perl version of each_cons + a small helper function "of"

gistfile1.pl

use strict;
use warnings;
use English;
use feature 'say';

sub of { [ @_ ] }

sub each_cons(&$$) {
  my ($code, $p, $array) = @ARG;
  my $n = scalar @{$array};
  
  foreach my $i ( 0 .. $n - $p) {
    $code->(@{$array}[$i .. $i + $p - 1])
  }
}

each_cons { say "@ARG" } 3 => of 1 .. 10;

__END__
will print

1 2 3
2 3 4
3 4 5
4 5 6
5 6 7
6 7 8
7 8 9
8 9 10