perl -e '$n=22.4; for(1..99) { $n = sprintf("%.3f", $n+0.001 ); } print "Result: $n\n";'