#!/usr/bin/perl -w
use strict;
$|++;

my @a = qw/v0 v1 v2 v3 v4 v5/;
sub LIMIT () { 4 }

while(scalar @a)
{
    local $,=' ';
    print 'd:', splice(@a,0,LIMIT), $/;
}