perl -lnae 'print unless $seen{$F[0]}++' < file2.txt > file1.txt

##</code><code>##

$ perl -MTie::Hash::Indexed -lane '\
  sub BEGIN {tie %seen, "Tie::Hash::Indexed"};\
  sub END {print $seen{$_} for keys %seen};\
  $seen{$F[0]} = $_'  file2.txt > file1.txt