my $x = $final_data{$key};
	 printf "x = %.20f  high= %.20f\n", $x, $high;