while(my  @line =  $sth->fetchrow_array()){
	
	my ($name,$deptcode) = @line;
	$name = encode("MacChineseSimp", $name);
	print "one line is ------$name,\t$deptcode\n";
	}