Select Code to Download

use strict;
use warnings;

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

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