Select Code to Download

$dbh = DBI->connect("DBI:mysql:database=$serverDb;host=$serverName;por
+t=$serverPort",$serverUser,$serverPass);
$sth = $dbh->prepare("SELECT code,number FROM $serverTabl_4 WHERE name
+ = ? ORDER BY number DESC");
...
  $codes{$ref->{code}} = $ref->{number};
  print $ref->{number},"\n"; 
}

$dbh = DBI->connect("DBI:mysql:database=$serverDb;host=$serverName;por
+t=$serverPort",$serverUser,$serverPass);
$sth = $dbh->prepare("SELECT code,sum(number) FROM $serverTabl_4 group
+ by code");
...
 # $sum{$ref->{code}} = $ref->{number};
 print $ref->{number},"\n"; 
}

+------+-------------+
| code | sum(number) |
+------+-------------+
...
|   24 |          84 |
|   25 |          43 |
|   26 |          14 |