#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11131485
use warnings;

@ARGV = 'd.11131485'; # FIXME used for testing

my %seen;
while( <> )
  {
  my ($r_name, $seq) = (split /\t/)[0, 9];
  $seq =~ s/.{20}\K.*//;
  $seen{"$r_name\t$seq"}++ and print "$r_name\n";
  }