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