$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"; 
}