Help for this page

Select Code to Download

Select or download this

    for(my $i=0; $i < 100000; $i++) {
        $hash{'foo'.$i} = '';    # using a hash
...
    }
    print "done\n";
    <STDIN>;

Select or download this

#!perl
use Benchmark;
...
        @ 372.58/s (n=1000)
   useVars:  4 wallclock secs ( 3.79 usr +  0.00 sys =  3.79 CPU) 
        @ 264.20/s (n=1000)