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