while(my $l=<IN>){
   my $id=substr($l,0, 33);
   $hash{$id}=1;
}