unless ( $seen{$_}++ ) {
    print;
    last unless --$wantedLines;
  }