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