use List::Util qw/sum/;
# ...
my $money_spent = sum map { $myHash{$_}->{"money"} } keys %myHash;