my $num4 = sprintf ("%.64f", $num7);