my %unique;
my @ids = map
{ chop;
  my @fld = split /\t/;
  !defined(  $unique{ $fld[0] } ) && $unique{ $fld[0] }++ && $fld[0];
} <$fileHandle>;