Just add an empty string at the end of the list of things to join:

my $result = join("\n", @lines, "");
[download]