while ( <DATA> ) {
   @tokens = split(/\t+/, $_ );
   foreach $tok (@tokens) {
      delete $hash{$tok};
   }   
}
foreach $tok ( keys( %hash ) ) {
   print "$tok\n";
}