arithmetic operations in perl