#!/usr/bin/env perl6
#

my %shared_hash;

await do for 1..10 -> $thread {
    start {
        for 1..100_000 -> $loop {
            my $key = floor(rand * 10_000);
            my $ref := %shared_hash<$key>;
            if !$ref {
                $ref = 0;
            }
            %shared_hash{$key} = $ref + 1;
        }
    }
}

say "shared_hash has ", %shared_hash.keys.elems, " keys";
# Don't know how to do this easily.  Is there an average function somewhere?
my $sum = 0;
for %shared_hash.values -> $v {
    $sum += $v;
}
my $ave = $sum / %shared_hash.keys.elems;
say "Average value (~10 if threadsafe): ", $ave;