A simple game to learn perl