my %seen;
while(<>) {
  chomp;
  my ($k, $v) = split/\t/, $_;
  print("$k\t$v\n") if $seen{$k} eq $v;
  $seen{$k} = $v
}