$ perl -e '$a+=0.1 for 1..10; print $a - 1'
-1.11022302462516e-16