my $mutex = $mutexes{$k} ||= do { my $mutex : shared; \$mutex };