print FILE for @lines;

# or, to be more verbose

foreach my $line (@lines) {
    print FILE $line
}