>perl -le"$x=.1; $n=$x*100;         print int $n"
10

>perl -le"$x=.1; $n+=$x for 1..100; print int $n"
9