If you want a handle on the cost of hash inserts, you may as well make the comparison more precise by making script 1 do something like:

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

(Assuming of course, the compiler doesn't optimize any of this away.)

the lowliest monk