demostration of broken overloaded x operator in perl