use strict;
use warnings;

my $wantedLines = shift;
my %seen;

while ( <> ) {
  print unless $seen{$_}++;
  last unless --$wantedLines;
}
##</code><code>##

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