use strict;
use warnings;

my @datan = ("1","2","3","4","5","6");

for ($_ = 0; $_ <= $#datan; $_ += 3) {
    print "@datan[$_..($_+2)]\n";
}
[download]