Select Code to Download

# 3 IPC trips:  FETCH, FETCH, STORE
$t{$name}->{r}++;
...
# 6 IPC trips: FETCH, FETCH, FETCH, FETCH, FETCH, STORE
$t{index}->{ $t{prev} }{ $t{cur} }++;

# 2 IPC trips: FETCH, STORE
$t{ "$name-rg" }++;
...
my $cur  = $t{cur};
$t{ "index-$prev-$cur" }++;

my $mutex  = Mutex->new;
...
...
    $sleep_inside->();
};

$ diff orig.pl script.pl
2a3,19
...
>        [ "\$_->{ prev  } = 'rgy'"  ]
>     );

$VAR1 = {
          'cur' => 'ry',
...
                     }
        };

  # print Dumper( tied(%t)->export( { unbless => 1 } ) ) if ($STATS);

    my %h = %{ tied(%t)->export({ unbless => 1 }) };  untie %t;
    print Dumper(\%h) if $STATS;