Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
use Benchmark qw':all :hireswallclock';
...
    'emulation' => sub {$the_hash{client_goldman_phone}++ },
    'HoH' => sub { $the_hash2{client}{goldman}{phone}++ },
});

Select or download this

            (warning: too few iterations for a reliable count)
               Rate       HoH emulation
HoH       1883239/s        --      -27%
emulation 2564103/s       36%        --