Just use tabs. :)

{
local($,, $\) = ("\t", "\n");
print @array;
}
[download]

Most likely, the tabs will do the right thing at the right border of the windows, i.e. wrap to the next line.

If you don't like my use of special variables, you can use other means:

print join("\t", @array) . "\n";
[download]

It won't do you much good if you want to save the data in a text file, instead of just displaying it.