Consider the simple code:

#!/usr/bin/perl
use strict;
use warnings;
my $i = 2456043.499992;
my $j = int($i);
my $k = $i-$j;
print "$i - $j == $k\n";
exit;
[download]

Which gives me the nonsensical results:

Huh?