sub eilys_code {
    my $bar;
    my %cache;
    my @keys = keys %$hash_ref;

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

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