for my $i (0 .. $#datan/3) {
  print join(' ', @datan[$i*3 .. $i*3 + 2]), "\n";
}