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