my %seen;
while (<>) {
   my @fields = ...;
   my $key = normalise($fields[0]);
   print { $seen{$key}++ ? $unique_fh : $extras_fh } $_;
}