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

my $i = 0;
while ( (my @x = @datan[(0+$i)..(2+$i)]) && $i<$#datan ) {
  print join(" ",@x), "\n";
  $i+=3;
}
print "l: @datan";