my %seen = ();
my @unique = grep { $seen{(split /\t/)[1]}++ ? undef : $_ } @found;