$x = 0.54 ; print "$x: ", ($x * 100) - int($x * 100), "\n" ;  # 0.54: 0
  $x = 0.56 ; print "$x: ", ($x * 100) - int($x * 100), "\n" ;  # 0.56: 7.105427357601e-15
  $x = 0.58 ; print "$x: ", ($x * 100) - int($x * 100), "\n" ;  # 0.58: 0.999999999999993