use Benchmark 'cmpthese';
use List::Util 'sum';

our %hash = (
  one => 1, two   => 2, three => 3, four => 4, five => 5,
  six => 6, seven => 7, eight => 8, nine => 9, ten  => 10,
);

our @array = ( 1 .. 10 );

use constant {
  ONE => 0, TWO   => 1, THREE => 2, FOUR => 3, FIVE => 4,
  SIX => 5, SEVEN => 6, EIGHT => 7, NINE => 8, TEN  => 9,
};

cmpthese ( -5,  {
  hash  => q/
    my $n = sum( @hash{  'one', 'two',   'three', 'four', 'five',
                         'six', 'seven', 'eight', 'nine', 'ten'   } );
  /,
  array => q/
    my $n = sum( @array[ ONE,   TWO,     THREE,    FOUR,   FIVE,
                         SIX,   SEVEN,   EIGHT,    NINE,   TEN    ] );
  /,
} );

##</code><code>##

           Rate  hash array
hash  1673833/s    --  -46%
array 3103809/s   85%    --