The lines in @lines still have their line endings attached, so when you print them with a newline you get doublespacing. Make that,

for (@lines) {
    print FILE $_;
}
[download]

or just, print FILE @lines; You also could chomp @lines to remove the previous line ends - useful if you need to translate them.