foreach $line (@lines) {
...
}