$dbh = DBI->connect("DBI:mysql:database=$serverDb;host=$serverName;port=$serverPort",$serverUser,$serverPass);
$sth = $dbh->prepare("SELECT code,number FROM $serverTabl_4 WHERE name = ? ORDER BY number DESC");
$sth->execute($surname);
my $ref;

while( $ref = $sth->fetchrow_hashref) 
{
  $codes{$ref->{code}} = $ref->{number};
  print $ref->{number},"\n"; 
} 


##</code><code>##

$dbh = DBI->connect("DBI:mysql:database=$serverDb;host=$serverName;port=$serverPort",$serverUser,$serverPass);
$sth = $dbh->prepare("SELECT code,sum(number) FROM $serverTabl_4 group by code");
$sth->execute();

while( $ref = $sth->fetchrow_hashref) 
{
 # $sum{$ref->{code}} = $ref->{number};
 print $ref->{number},"\n"; 
}  


##</code><code>##

+------+-------------+
| code | sum(number) |
+------+-------------+
|    1 |        1087 |
|   21 |         606 |
|   22 |          77 |
|   23 |          26 |
|   24 |          84 |
|   25 |          43 |
|   26 |          14 |