my %money_spent = ();
foreach my $customer (keys %myHash) {
    $money_spent{$customer} = $myHash{$customer}->{"money"};
}