Help for this page

Select Code to Download

Select or download this
```
while(my $l=<IN>){
}
```

Select or download this

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