for(@file) {
  ...
}

##</code><code>##

for $line (@file) {
  ...
}