my $s : shared = 'a' x 10_000;
for (1..100) {
    async { my $l = length $s; sleep }
}