Select Code to Download

use strict;
use warnings;
...
    'anon' => sub { for my $x (qw(a b a b a b)) { my $y = { 'a' => 'A'
+, 'b' => 'B'}->{$x}; }},
    'named' => sub { for my $x (qw(a b a b a b)) { my $h = { 'a' => 'A
+', 'b' => 'B'}; my $y = $h->{$x}; }},
});

         Rate named  anon
named 78120/s    --   -8%
anon  84539/s    8%    --