while (<>) {
  unless ($n{$_}++) {
    ... do something whith the line ...
  }
}