Select Code to Download

#!/usr/bin/perl

...
        push (@data,share( $rf )); #### NOTE CHANGE HERE!
        return $num;
}

c:\test>807599.pl
started thread 1
...
done with 9 -- tmp=HASH(0xf4c48) tmp=HASH(0xf4978) t
done with 10 -- tmp=HASH(0xf4c60) tmp=HASH(0xf4b40)
End of main program  tmp=HASH(0xf4c78) tmp=HASH(0xf4