Select Code to Download

sub variation3ep {
  my $idx = -1;
  my %hash = map(($_ => ++$idx), @array);
}

#!/usr/bin/env perl
use strict;
...
            Rate variation5 variation4
variation5 740/s         --        -4%
variation4 773/s         5%         --

sub variation6 {
    my $idx = -1;
    my %hash; $hash{ $_ } = ++$idx for @array;
}