This little snippet should steer you in the right direction.

#!/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), $/;
}
[download]

You can just replace the print statement with your mail command.