use strict;
use warnings;

use MCE::Shared::Ordhash;
use Data::Dumper;

my $table = MCE::Shared::Ordhash->new();

for my $key (qw( a_a b_b c_c d_d e_e )) {
   $table->{$key}{'pend'} += 1;
   $table->{$key}{'run'}  += 2;
}

print Dumper($table), "\n";