use strict; use warnings;
my %seen;
while (<>)
{
   my @columns = split;
   next if exists $seen{$columns[0]};
   $seen{$columns[0]} = 1;
   print;
}