$i=1000.9999999999999; print "$i - ".($i-int($i))."\n"