my $val = 1 / 3;
say $val; # 0.333333333333333
say $val * 3; # 1

これを1ではなく、0.999999999999999として扱いたい場合どうすればいいでしょうか