Help for this page

Select Code to Download


  1. or download this
    #!perl
    use Benchmark;
    ...
    use_global_vars: 10 wallclock secs (10.54 usr +  0.02 sys = 10.56 CPU)
    + @ 561.35/s (n=5925)
    use_lexical_hash: 11 wallclock secs (10.65 usr +  0.00 sys = 10.65 CPU
    +) @ 794.74/s (n=8460)