Select Code to Download

 foreach $customer (keys %myHash){
 $money_spent = $myHash{$customer}{money};
}

 foreach $customer (keys %myHash){
   print "$customer \n"; #--check what customers are there
   if ($customer eq 'NAME-OF-CUST'){
...
   }
...
}