print $fh join ("\n", @lines);