## split 'a' through 'f' into blocks of sizes 3+2+1:
my $iter = partition( [3,2,1], qw[a b c d e f]);
while (my @parts = $iter->()) {
    print "[@$_] " for @parts;
    print $/;
}