my $string = join q(), map +('a' .. 'z')[rand 26], 1 .. 10_000