use strict;
use warnings;

use Hash::Ordered;
use Data::Dumper;

tie my %table, 'Hash::Ordered';

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";