Select Code to Download

sub groups_of_n
{
...
     map { [ @_ [$_ * $n .. $_ * $n + $n -1 ]] }
     0 .. $#_ / $n;
}