my @src = 'a' .. 'zz';
my $count = 0;
while( my @cur = splice( @src, 0, 8  ) ) {
  print join( "\t", @cur ), "\n";
  $count += @cur;
  last if $count >= 40;
}