$ perl -E'say sprintf("%.13f",((1 - 0.9999) * 10000))'
0.9999999999999
$ perl -E'say sprintf("%.12f",((1 - 0.9999) * 10000))'
1.000000000000