Help for this page

Select Code to Download

Select or download this

use v5.12;
use warnings;
...
    push @AoH, { map { rand 100 <= $density ? ("$_" => $_) :() } "A"..
+"ZZ" } for 1..$records;
    return \@AoH;
}

Select or download this

__DATA__

...
list_join  3.66/s         --      -100%
slice_join 1067/s     29072%         --
1..4