or print a delimiter after each element (even after the last) of the array with a for loop like

You can still use the join idiom rather than choosing a loop.

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

I hope this is of interest.