print FILE "$_\n" for @lines;

# or, to be more verbose

foreach my $line (@lines) {
    print FILE "$line\n";
}