#!/usr/bin/perl
use strict;
use warnings;

my @array = qw( a..a b...b c....c d.....d e......e f.......f g........g h.........h i..........i j.j k..k l...l );

foreach (
                do {
                        my @subset = splice( @array,0,8 );
                        my @chunk = @subset[1..6];
                }
        ) {

        s/\.//g;
        print $_,"\n";

}


##</code><code>##

my @chunk = splice(@array,0,8);
s/\.//g foreach (@smallchunk);

##</code><code>##

s/\.//g foreach ( splice(@array,0,8) );