Hi vox2000,

About:

print join(" ",@datan);
[download]

you can obtain the same behavoir more simply with:

print "@datan";
[download]

But beware the value of $" special variable.
Infact using a naked block and localizing $" you can get very nice behavoir. Try:

{
local $"=", ";
print "@datan"
}
[download]

Moreover, according to TMTOWTDI, you can "break" your array also with:

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