my $break=3;
print $break!=$_ ? "$_ ": "$_\n" for (@datan);