Select Code to Download

 Customer        | Money spent
-----------------+-------------
 Fred Flintstone | 1000
 Barney Rubble   | 2000
 ...             | ...

foreach my $customer (keys %money_spent) {
    my $money_sent_by_this_customer = $money_spent{$customer};
...
    # do something with $customer and $money_spent_by_this_customer

}

foreach my $customer (keys %myHash) {
    my $money_sent_by_this_customer = $myHash{$customer}->{"money"};
...
    # do something with $customer and $money_spent_by_this_customer

}

foreach my $customer (keys %myHash) {
    my $money_sent_by_this_customer_at_9am = $myHash{$customer}->{"mon
+ey9am"};
...
    # do something with $customer, $money_spent_by_this_customer_at_9a
+m and $money_spent_by_this_customer_at_3pm

}