sub _sum {
    my $hash = shift;
    my $total = 0;
    $total += $_ for @$hash{ @_ };
    return $total;
}
[download]

You can use a list of keys as indices into a hash. It's called a hash slice, and it's very very nice.