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