$ perl -wMstrict -le '
    if ( sprintf("%.3f",0.001) eq sprintf("%.3f",0.001001) )
      { print "yes" } else { print "no" }'
yes