$a = 1 - 1e-16;

say $a;
printf "%.16f",$a;

__END__     
1
0.9999999999999999