gistfile1.txt

use strict;
use warnings;
use Benchmark;

my %a = (
    foo => 1,
    bar => 2,
    baz => 3,
);

Benchmark::cmpthese(-1, {
    'mr.doredd' => sub {
        my %b;
        @b{ values %a } = keys %a;
    },
    'reverse' => sub {
        my %b;
        %b = reverse %a;
    },
});


              Rate mr.doredd   reverse
mr.doredd 255530/s        --      -18%
reverse   312785/s       22%        --