view release on metacpan or  search on metacpan

benchmark.pl  view on Meta::CPAN

use strict;
use warnings;
use Benchmark qw/cmpthese timethese/;
use Sort::HashKeys;
use constant HASH_SLICE => $] ge "5.020";

my (@perl, @expr, @slce, @xs, %hash, %hash1, %hash2, %hash3, %hash4);

my @chars = ("A".."Z", "a".."z", "0".."9");
for (1..1000) {
    my $string;
    $string .= $chars[rand @chars] for 1..6;

    $hash{$string} = $_;
}