local $" = "\t"; my @a = qw(1 2 3); print "@a"; __END__ 1 2 3