my @datan = qw(1 2 3 4 5 6);
for ($cnt=0; $cnt<=$#datan; $cnt++) {
 print "\n" if $cnt%3 == 0;## remainder==zero after division by 3
 print "$datan[$cnt] ";
}
print "\n";