perl -e 'print 1.15*100,"\n",int(1.15*100),"\n"'