Game in perl