arithmetic operations in perl script