UPDATE:

more explicit:

while ( @lines = readlines($filehandle,16) ) {
  print @lines,"----\n";
}
 
sub readlines {
  my ($fh, $count) = @_;
  my @gulp;
  while (<$fh>) {
    push @gulp,$_;
    last unless --$count;
  }
  return @gulp;
}
[download]