print join(" ",@datan);

##</code><code>##

print "@datan";

##</code><code>##

{
local $"=", ";
print "@datan"
}

##</code><code>##

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