if ($row ne 0)
	{
		$number = 0;
		while (($number) = $sth->fetchrow_array())
		{	
			
			$number++; $numbergraf++;

my $newno = substr($number, 0, 2);

$output .=qq~ The sum of xxx is $newno ~;