print $fh join(":", @array);

##</code><code>##

print $fh $_, "\n" for @array;