while (<FOO>) {
  print if !$seen++;
  # ...
}