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