#!/usr/bin/perl

use strict;
use warnings;

my @list = (qw|one two three four five six seven eight nine ten eleven|);

while (my @subset = splice(@list,0,8)) {
	print join(' ',@subset), $/;
}