perl -le "for(1..100000000) {$x += 0.01}print $x;" 1000000.00077928