Select Code to Download

  while (...)
  {
...
    sort { $a->[1] <=> $b->[1] }
    map { [$_, $top_balances{$_}] }
    keys %top_balances;