sub datas
{
    	 $data1 = "";
   	 $data2 = "";
 	 my $str= shift;
	$DBH = &connect or die "Cannot connect to the sql server \n";
	$DBH->do("USE $str;");
	my $stmt="select name,data1,data2 from((select name,data1,data2 from datas order by data1 +data2 desc limit 5  )union all(select 'added' as name ,sum(data1)  as data1 ,sum(data2) as data2 from (select data1,data2 from datas order by data2+data1 desc limit  18446744073709551615 offset 5 ) new)) new;";
	
	my $sth = $DBH->prepare( $stmt );
	$sth->execute() or die $sth->errstr;
	
	my $tmp = 0;
	while(my @row_array=$sth->fetchrow_array)
	{
	    if ($tmp == 0) {
		$data1 .= "\[\"$row_array[0] \($row_array[2]\)\",$row_array[2]\]";
		
		$data2 .= "\[\"$row_array[0] \($row_array[1]\)\",$row_array[1]\]";
		$tmp++;
	    }
	    else {
		$data1 .= ",\[\"$row_array[0] \($row_array[2]\)\",$row_array[2]\]";
		$data2 .= ",\[\"$row_array[0] \($row_array[1]\)\",$row_array[1]\]";
	    }
	
	}
	$sth->finish;
	$DBH->disconnect();
}