use List::Util qw(sum); # found in the CPAN
my $total = sum @hash{qw(foo bar baz)};