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