Yes, there is, $". See perlvar.

Also, it is good practise to limit all changes you make to $" to a small block by using local:

{
    # output as tab delimited:
    local $" = "\t";
    print $fh "@array\n";
}
# $" has its old value here again
[download]