while (<FILEID>){
  chomp;
  s/[\s]//g;
  $ID{$_}=1 if $_;
}