my @slurp = <IN>;
while (my @chunk = splice(@slurp, 0, 10)) {
  # do stuff
}

##</code><code>##

while (my @chunk = map{scalar<IN>||()} 1..10) {
  # do stuff
}