my %seen;
while (<>) {
    s/\t.*//s;
    $seen{$_}++ or print "$_\n";
}