Select Code to Download

# benchmark four ways to combine hashes:
cmpthese (-10,{
...
  },

},'auto');

# generate dataset of random key-val pairs
my %hash;
...
print OUT "package hashdata;\n";
print OUT Dumper \%hash;
close OUT;

# generate test hashes from dataset
# adjust forloops for hash size & overlap
...
        $hash2->{$_} = $hash->{$_};
    }
}

hash1: 10000 keys, hash2: 10000 keys
duplicates 1000, added 9000 key/values
...
whileach  65928/s     133%       --     -17%     -35%
forloop   79675/s     181%      21%       --     -22%
slice    101564/s     259%      54%      27%       --