Select Code to Download

# cmpthese (30k iterations)

...
 shareable: 75 wallclock secs (41.40 usr + 32.59 sys = 73.99 CPU) @ 40
+5.46/s (n=30000)
shared_hash: 22 wallclock secs (17.10 usr +  4.57 sys = 21.67 CPU) @ 1
+384.40/s (n=30000)

use warnings;
use strict;
...
    $hash{struct} = {a => [qw(b c d)]};
    tied(%hash)->clean_up_all;
}