Well, I always go back to my "grow your own control structure", the naked block:

my @buffer;
{
  push @buffer, scalar <IN>;
  redo unless eof(IN) or @buffer >= 10;
  ## process @buffer
  @buffer = ();
  redo unless eof(IN);
}
[download]

Says it clearly. No having to think of multiple screwiness.

-- Randal L. Schwartz, Perl hacker