while (<DATA>){
    if (!m/^(\S+)/){
        die "Invalid line: $_";
    } 
    print unless $seen_words{$1}++;
}