Select Code to Download

print join(" ",@datan);

print "@datan";

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

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