8 my @array = ('a' .. 'z');
10 my $aref = [ @array ];
14 @array->each_n(2, sub { push @vals, [@_] });
16 is(scalar @$_, 2) for @vals;
17 is_deeply(@vals->map(sub { @{ $_ } }), [@array]);
22 $aref->each_n(2, sub { push @vals, [@_] });
24 is(scalar @$_, 2) for @vals;
25 is_deeply(@vals->map(sub { @{ $_ } }), $aref);