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