#!/usr/bin/env perl -l

use strict;
use warnings;

use Time::HiRes 'time';

my $hash_ref;
@$hash_ref{'a' .. 'j'} = 1 .. 10;
my $array_ref = [ ('v-w-x-y-z') x 2e6 ];
my $foo;
my $value = 0;
for my $outer ('v' .. 'z') {
    $foo->{$outer}{$_}{value} = ++$value for 'a' .. 'j';
}

my $t0 = time;
op_code();
my $t1 = time;
printf "op_code:   %.6f\n", $t1 - $t0;
kens_code();
my $t2 = time;
printf "kens_code: %.6f\n", $t2 - $t1;
print '*** Compare ***';
printf "kens/op:   %.6f%%\n", (($t2 - $t1) / ($t1 - $t0)) * 100;

sub op_code {
    my $bar;

    foreach my $a (@{ $array_ref }) {
        my $i = 0;
        foreach my $b (split('-', $a)) {
            foreach my $c (keys %{ $hash_ref }) {
                $i += $foo->{$b}->{$c}->{'value'};
            }
        }
        push @{ $bar->{$i} }, $a;
    }

    print '*** op_code ***';
    print "@{[ $_, $#{$bar->{$_}}, $bar->{$_}[0] ]}" for keys %$bar;
}

sub kens_code {
    my $bar;
    my @keys = keys %$hash_ref;

    for my $outer (@$array_ref) {
        my $sum;
        for my $inner (split /-/, $outer) {
            for (@keys) {
                $sum += $foo->{$inner}{$_}{value};
            }
        }
        push @{$bar->{$sum}}, $outer;
    }

    print '*** kens_code ***';
    print "@{[ $_, $#{$bar->{$_}}, $bar->{$_}[0] ]}" for keys %$bar;
}

##</code><code>##

*** op_code ***
1275 1999999 v-w-x-y-z
op_code:   31.985272
*** kens_code ***
1275 1999999 v-w-x-y-z
kens_code: 23.075756
*** Compare ***
kens/op:   72.144941%