$, = "\t";
print @array;
#or
print shift . "\t" while @array;
#or
print $_    . "\t" for   @array;
#or
print map { $_ . "\t" } @array;
#or
print join("\t", @array);
[download]

TMTOWTDI. I would chose the first way if it were the only print in that scope. If not, I would chose the second.