NumGuessing done in perl