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;
}