Select Code to Download

my %hash; @hash{ @array } = 0 .. $#array;

#!/usr/bin/env perl
use strict;
...
       variation3()
       },
});

               Rate variation2 variation3   original variation1
variation2 142570/s         --       -15%       -35%       -49%
...
original   220185/s        54%        31%         --       -21%
variation1 279147/s        96%        66%        27%         --