sub equipartition {
    my $parts = shift;
    my $items = @_;
    my @p = map { int( ($items+$_)/$parts ) } 0 .. $parts-1;
    partition( \@p, @_ );
}

my $iter = equipartition(4 => 1..16);
...