Select Code to Download

Select or download this

foreach (0..1000) {
    my $string;
    $string .= ('a'..'z','A'..'Z')[rand 52] for 1 .. 4096;
    push @array, $string;
}

Select or download this

Benchmark: timing 1000 iterations of Schwartzian, Simple...
Schwartzian: 67 wallclock secs (66.85 usr +  0.04 sys = 66.89 CPU) @ 1
+4.95/s (n=
...
              Rate      Simple Schwartzian
Simple      1.87/s          --        -87%
Schwartzian 14.9/s        698%          --