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