my @unique = grep { my $key = extract_key($_);
                    ! $seen{ $key }++
                  }
             @newFile;