$ perl bench_oh.pl 1   # memory efficient and fast
Tie::Hash::Indexed
store  : 0.858 secs.
delete : 1.544 secs.
elapse : 2.401 secs.

$ perl bench_oh.pl 2   # not memory efficient, but fast for pure-Perl impl.
MCE::Shared::Indhash
store  : 1.271 secs.
delete : 2.197 secs.
elapse : 3.468 secs.

$ perl bench_oh.pl 3   # memory efficient and fast for being pure-Perl
MCE::Shared::Ordhash
store  : 1.048 secs.
delete : 2.829 secs.
elapse : 3.877 secs.

$ perl bench_oh.pl 4   # memory efficient, but deletions taking longer
Hash::Ordered
store  : 1.076 secs.
delete : 4.037 secs.
elapse : 5.113 secs.

##</code><code>##

use strict; use warnings;

use MCE::Hobo;
use MCE::Shared;

use Tie::Hash::Indexed;
use Hash::Ordered;
use MCE::Shared::Ordhash;

tie my %hi, 'MCE::Shared', { module => 'Tie::Hash::Indexed' }, total => 0;
tie my %ho, 'MCE::Shared', { module => 'Hash::Ordered' }, total => 0;
tie my %oh, 'MCE::Shared', { module => 'MCE::Shared::Ordhash' }, total => 0;

sub task {
    my $id = shift;
    $hi{$id} = $id; tied(%hi)->lock; $hi{total}++; tied(%hi)->unlock;
    $ho{$id} = $id; tied(%ho)->lock; $ho{total}++; tied(%ho)->unlock;
    $oh{$id} = $id; tied(%oh)->lock; $oh{total}++; tied(%oh)->unlock;
}

MCE::Hobo->create('task', $_) for 1..4;
MCE::Hobo->wait_all();

my (@k, @v);
@k = keys %hi; print "hi keys: @k\n";
@k = keys %ho; print "ho keys: @k\n";
@k = keys %oh; print "oh keys: @k\n";
@v = values %hi; print "hi vals: @v\n";
@v = values %ho; print "ho vals: @v\n";
@v = values %oh; print "oh vals: @v\n";

__END__
hi keys: total 1 2 3 4
ho keys: total 1 2 3 4
oh keys: total 1 2 3 4
hi vals: 4 1 2 3 4
ho vals: 4 1 2 3 4
oh vals: 4 1 2 3 4

##</code><code>##

use strict; use warnings;

use Tie::Hash::Indexed;
use Hash::Ordered;
use MCE::Shared::Ordhash;

use MCE::Hobo;
use MCE::Shared;

my $hi = MCE::Shared->share({ module => 'Tie::Hash::Indexed' }, total => 0);
my $ho = MCE::Shared->share({ module => 'Hash::Ordered' }, total => 0);
my $oh = MCE::Shared->share({ module => 'MCE::Shared::Ordhash' }, total => 0);

sub task {
    my $id = shift;
    $hi->set($id => $id); $hi->preinc('total');
    $ho->set($id => $id); $ho->preinc('total');
    $oh->set($id => $id); $oh->incr('total');
}

MCE::Hobo->create('task', $_) for 1..4;
MCE::Hobo->wait_all();

my (@k, @v);
@k = $hi->keys; print "hi keys: @k\n";
@k = $ho->keys; print "ho keys: @k\n";
@k = $oh->keys; print "oh keys: @k\n";
@v = $hi->values; print "hi vals: @v\n";
@v = $ho->values; print "ho vals: @v\n";
@v = $oh->values; print "oh vals: @v\n";

__END__
hi keys: total 1 2 3 4
ho keys: total 1 2 3 4
oh keys: total 1 2 3 4
hi vals: 4 1 2 3 4
ho vals: 4 1 2 3 4
oh vals: 4 1 2 3 4