print $fh join qq{\n}, @array, q{};