Select Code to Download

  $balances{$cust} += $bal * $fx_rates->{$ccy};

  my @sorted_cust_list = 
    reverse map {$_->[0]} sort {$a->[1]<=>$b->[1]}
    map{[$_,$balances{$_}]}keys %balances;

  while ( my($cust,$balance) = each %balances ) {
      ...
  }