print FILE for @lines;

# or, to be more verbose

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

##</code><code>##

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

# or, to be more verbose

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

##</code><code>##

print OUTPUT_FILE while <INPUT_FILE>;

# or, to be more verbose

while ($line = <INPUT_FILE>) {
    # manipulation of $line goes here.
    print OUTPUT_FILE $line;
}