sub by_groups_of {
    my $by = shift;
    return sub { () } if ! $by || $by =~ /\D/ || ! @_;
    my @list = @_; # here's the copy. we're safe to splice

    return sub { splice @list, 0, $by };
}