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