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