while (<DATA>) {
  $line = $_;
  ...do some stuff...
}